old-examples/animal/AnimalsSwe.gf


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

--# -path=.:present:prelude

concrete AnimalsSwe of Animals = QuestionsSwe **
  open LangSwe, ParadigmsSwe, IrregSwe in {

  lin
    Dog = regN "hund" ;
    Cat = mk2N "katt" "katter" ;
    Mouse = mkN "mus" "musen" "möss" "mössen" ;
    Lion = mk2N "lejon" "lejon" ;
    Zebra = regN "zebra" ;
    Chase = dirV2 (regV "jaga") ;
    Eat = dirV2 äta_V ;
    See = dirV2 se_V ;
}