examples/animals/AnimalsFre.gf


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

--# -path=.:present:prelude

concrete AnimalsFre of Animals = QuestionsFre **
  open LangFre, ParadigmsFre, IrregFre in {

  lin
    Dog   = regN "chien" ;
    Cat   = regN "chat" ;
    Mouse = regGenN "souris" feminine ;
    Lion  = mkN "lion" masculine ;
    Zebra = regGenN "zèbre" masculine ;
    Chase = dirV2 (regV "chasser") ;
    Eat   = dirV2 (regV "manger") ;
    See   = voir_V2 ;
}