examples/tutorial/embedded/QuerySpa.gf


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

concrete QuerySpa of Query = {
  lincat 
    Answer, Question, Object = Str ;

  lin 
    Even x = x ++ "es" ++ "par" ;
    Odd  x = x ++ "es" ++ "impar" ;
    Prime x = x  ++ "es" ++ "primo" ;
    Number n = n.s ;

    Yes = "si" ;
    No = "no" ;

}