blob: 962fe78f9bcb8af32201a4f08fb059be72ca09af (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
concrete GreetingsTha of Greetings =
SentencesTha [Greeting,mkGreeting] **
open ResTha, Prelude in {
-- สุคสันต์วันเกิด
flags coding = utf8 ;
lin
GBye = mkGreeting (thbind "ecO" "kan" "na.") ;
GCheers = mkGreeting (thbind "a&c2" "o:y") ;
GDamn = mkGreeting (thbind "a'c2T1g") ; ---- google
GExcuse, GExcusePol = mkGreeting (thbind "k1O" "o:t5s.") ;
GGoodDay = mkGreeting (thbind "swas" "di:") ;
GGoodEvening = mkGreeting (thbind "swas" "di:") ;
GGoodMorning = mkGreeting (thbind "swas" "di:") ;
GGoodNight = mkGreeting (thbind "ra:" "tri:" "swas" "diK") ;
GGoodbye = mkGreeting (thbind "la:" "kT1On") ;
GHello = mkGreeting (thbind "hwas" "di:") ;
GHelp = mkGreeting (thbind "c2T1wy" "dT2wy") ;
GHowAreYou = mkGreeting (thbind "sba:y" "di:" "a&hm") ;
GLookOut = mkGreeting (thbind "ra." "wag") ; ---- google
GNiceToMeetYou, GNiceToMeetYouPol =
mkGreeting (thbind "yin" "di:" "t2i:T1" "a&dT2" "ru:T2" "cak") ;
GPleaseGive, GPleaseGivePol = mkGreeting (thbind "c2T1wy") ; ----
GSeeYouSoon = mkGreeting (thbind "ecO" "kan" "na.") ;
GSorry, GSorryPol = mkGreeting (thbind "k1O" "o:t5s.") ;
GThanks = mkGreeting (thbind "k1Ob" "k2un'") ;
GTheCheck = mkGreeting (thbind "ec2Sk2" "bil") ;
GCongratulations = mkGreeting (thbind "yin" "di:" "dT2wy") ;
GHappyBirthday = mkGreeting (thbind "suk2" "santK" "wan" "ekid") ;
GGoodLuck = mkGreeting (thbind "o:ck2" "di:" "na.") ;
}
|
