gf-book web page index and toc

This commit is contained in:
aarne
2011-01-11 15:46:43 +00:00
parent 276327f7f2
commit e7439d65b0
109 changed files with 491 additions and 0 deletions

View File

@@ -0,0 +1,19 @@
concrete TicketEng of Ticket = {
lincat
Request, Station = Str ;
lin
Ticket X Y =
((("I" ++ ("would like" | "want") ++ "to get" |
("may" | "can") ++ "I get" |
"can you give me" |
[]) ++
"a ticket") |
[]) ++
"from" ++ X ++ "to" ++ Y ++
("please" | []) ;
Hamburg = "Hamburg" ;
Paris = "Paris" ;
}