sorted LexiconTha again

lib/src/Make.hs

@@ -161,7 +161,7 @@ gfc pres ppath file = do
   let preproc = if pres then "-preproc=mkPresent" else ""
   let path    = if pres then ppath else ""
   putStrLn $ "Compiling " ++ file
-  run_gfc ["-s","-src",preproc, path, file]
+  run_gfc ["-s","-src","-no-pmcfg",preproc, path, file]
 
 gfcmin path file = do
   let preproc = "-preproc=mkMinimal"

lib/src/thai/AdverbTha.gf

@@ -12,7 +12,7 @@ concrete AdverbTha of Adverb = CatTha **
 
     AdAdv adv ad = thbind ad adv ;
 
-    SubjS = thbind ;
+    SubjS x y = thbind x y ;
 
     AdnCAdv cadv = ss (thbind cadv.s conjThat) ; -----
 

lib/src/thai/LexiconTha.gf

@@ -7,34 +7,51 @@ flags
   coding = utf8 ;
 
 lin
+--  add_V3 = dirV3 (regV "add") toP ;
 --  airplane_N = regN "airplane" ;
+  all_Predet = ss (thbind "ทั้ง" "หมด") ;
+--  already_Adv = mkAdv "already" ;
+  animal_N = animalN (thbind "สัตว์") ;
 --  answer_V2S = mkV2S (regV "answer") toP ;
 --  apartment_N = regN "apartment" ;
 --  apple_N = regN "apple" ;
 --  art_N = regN "art" ;
+  ash_N = mkN (thbind "เถ้า") ;
+--  ashes_N = regN "ash" ;  FIXME: plural only?
 --  ask_V2Q = mkV2Q (regV "ask") noPrep ;
+--  atP = mkPrep "at" ;
 --  baby_N = regN "baby" ;
---  bad_A = mkADeg "bad" "badly" "worse" "worst" ;
+  back_N = mkN (thbind "หลัง") ;
+  bad_A = mkA (thbind "เลว") ;
 --  bank_N = regN "bank" ;
+  bark_N = mkN (thbind "เปลือก") ;
 --  beautiful_A = regADeg "beautiful" ;
 --  become_VA = mkVA (irregV "become" "became" "become") ;
-  beer_N = mkN biar_s kew_s ; 
+--  beer_N = mkN biar_s kew_s ; 
 --  beg_V2V = mkV2V (regDuplV "beg") noPrep toP ;
-  big_A = ss yay_s ;
+  belly_N = mkN (thbind "พุง") ;
+  big_A = mkA (thbind "ใหญ่") ;
 --  bike_N = regN "bike" ;
---  bird_N = regN "bird" ;
+  bird_N = animalN (thbind "นก") ;
---  black_A = regADeg "black" ;
+  bite_V2 = mkV2 (thbind "กัด") ;
+  black_A = mkA (thbind "ดำ") ;
+  blood_N = mkN (thbind "เลือด") ;
+  blow_V = mkV (thbind "พัด") ;
 --  blue_A = regADeg "blue" ;
 --  boat_N = regN "boat" ;
-  book_N = mkN (nag_s ++ svv_s) lem_s ;
+  bone_N = mkN (thbind "กระดูก") ;
+--  book_N = mkN (nag_s ++ svv_s) lem_s ;
 --  boot_N = regN "boot" ;
 --  boss_N = regN "boss" ;
 --  boy_N = regN "boy" ;
 --  bread_N = regN "bread" ;
 --  break_V2 = dirV2 (irregV "break" "broke" "broken") ;
+  breast_N = mkN (thbind "นม") ;
+  breathe_V = mkV (thbind "หาย" "ใจ") ;
 --  broad_A = regADeg "broad" ;
 --  brother_N2 = regN2 "brother" ;
 --  brown_A = regADeg "brown" ;
+  burn_V = mkV (thbind "เผา") ;
 --  butter_N = regN "butter" ;
 --  buy_V2 = dirV2 (irregV "buy" "bought" "bought") ;
 --  camera_N = regN "camera" ;
@@ -45,510 +62,316 @@ lin
 --  ceiling_N = regN "ceiling" ;
 --  chair_N = regN "chair" ;
 --  cheese_N = regN "cheese" ;
-  child_N = personN "ลูก" ;
+  child_N = mkN (thbind "เด็ก") ;
 --  church_N = regN "church" ;
 --  city_N = regN "city" ;
 --  clean_A = regADeg "clean" ;
 --  clever_A = regADeg "clever" ;
 --  close_V2 = dirV2 (regV "close") ;
+  cloud_N = mkN (thbind "เมฆ") ;
 --  coat_N = regN "coat" ;
---  cold_A = regADeg "cold" ;
+  cold_A = mkA (thbind "หนาว") ;
---  come_V = (irregV "come" "came" "come") ;
+  come_V = mkV (thbind "มา") ;
 --  computer_N = regN "computer" ;
+  correct_A = mkA (thbind "แท้") ;
+  count_V2 = mkV2 (thbind "นับ") ;
 --  country_N = regN "country" ;
 --  cousin_N = regN "cousin" ;
 --  cow_N = regN "cow" ;
---  die_V = (regV "die") ;
+  cut_V2 = mkV2 (thbind "ตัด") ;
---  dirty_A = regADeg "dirty" ;
+  day_N = mkN (thbind "กลาง" "วัน") ;
+  die_V = mkV (thbind "ตาย") ;
+--  dig_V = dig_V ;
+  dig_V2 = mkV2 (thbind "ขุด") ;
+  dirty_A = mkA (thbind "สก" "ปรก") ;
 --  distance_N3 = mkN3 (regN "distance") fromP toP ;
+--  do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ;
 --  doctor_N = regN "doctor" ;
---  dog_N = regN "dog" ;
+  dog_N = animalN (thbind "หมา") ;
 --  door_N = regN "door" ;
-  drink_V2 = dirV2 (regV dvm_s) ;
+  drink_V2 = mkV2 (thbind "ดื่ม") ;
+  dry_A = mkA (thbind "แห้ง") ;
+  dull_A = mkA (thbind "ทื่อ") ;
+  dust_N = mkN (thbind "ฝุ่น") ;
+  ear_N = mkN (thbind "หู") ;
+  earth_N = mkN (thbind "ดิน") ;
 --  easy_A2V = mkA2V (regA "easy") forP ;
---  eat_V2 = dirV2 (irregV "eat" "ate" "eaten") ;
+  eat_V2 = mkV2 (thbind "กิน") ;
+  egg_N = mkN (thbind "ไข่") ;
 --  empty_A = regADeg "empty" ;
 --  enemy_N = regN "enemy" ;
+  eye_N = mkN (thbind "ตา") ;
 --  factory_N = regN "factory" ;
+  fall_V = mkV (thbind "ตก") ;
+  far_Adv = ss (thbind "ไกล") ;
+  fat_N = mkN (thbind "มัน") ;
+  father_N = personN (thbind "พ่อ") ;
 --  father_N2 = regN2 "father" ;
+  fear_N = mkN (thbind "กลัว") ;
+--  fear_V2 = dirV2 (regV "fear") ;
 --  fear_VS = mkVS (regV "fear") ;
+  feather_N = mkN (thbind "ขน") ;
+  few_Det = mkN (thbind "สองสาม") ;
+  fight_V = mkV (thbind "สู้") ;
+--  fight_V2 = dirV2 fight_V ;
 --  find_V2 = dirV2 (irregV "find" "found" "found") ;
---  fish_N = mk2N "fish" "fish" ;
+  fingernail_N = mkN (thbind "เล็บ") ;
+  fire_N = mkN (thbind "ไฟ") ;
+  fish_N = animalN (thbind "ปลา") ;
+  float_V = mkV (thbind "ลอย") ;
 --  floor_N = regN "floor" ;
+  flow_V = mkV (thbind "ไหล") ;
+  flower_N = mkN (thbind "ดอก") ;
+  fly_V = mkV (thbind "บิน") ;
+  fog_N = mkN (thbind "หมอก") ;
+  foot_N = mkN (thbind "เท้า") ;
+--  forP = mkPrep "for" ;
+  forest_N = mkN (thbind "ดง") ;
 --  forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ;
+  freeze_V = mkV (thbind "แข็ง") ;
 --  fridge_N = regN "fridge" ;
 --  friend_N = regN "friend" ;
---  fruit_N = regN "fruit" ;
+--  fromP = mkPrep "from" ;
+  fruit_N = mkN (thbind "หมาก") ;
+  full_A = mkA (thbind "เต็ม") ;
 --  fun_AV = mkAV (regA "fun") ;
 --  garden_N = regN "garden" ;
 --  girl_N = regN "girl" ;
+---  give_V3 = mkV3 (thbind "ให้") ;
 --  glove_N = regN "glove" ;
+--  go_V = regV pay_s ;
 --  gold_N = regN "gold" ;
---  good_A = mkADeg "good" "well" "better" "best" ;
+  good_A = mkA (thbind "ดี") ;
-  go_V = regV pay_s ;
+--  grammar_N = regN "grammar" ;
---  green_A = regADeg "green" ;
+  grass_N = mkN (thbind "หญ้า") ;
+  green_A = mkA (thbind "เขียว") ;
+  guts_N = mkN (thbind "ไส้") ;
+  hair_N = mkN (thbind "ผม") ;
+  hand_N = mkN (thbind "มือ") ;
 --  harbour_N = regN "harbour" ;
---  hate_V2 = dirV2 (regV "hate") ;
 --  hat_N = regN "hat" ;
+--  hate_V2 = dirV2 (regV "hate") ;
 --  have_V2 = dirV2 (mkV "have" "has" "had" "had" "having") ;
---  hear_V2 = dirV2 (irregV "hear" "heard" "heard") ;
+  head_N = mkN (thbind "หัว") ;
+  hear_V2 = mkV2 (thbind "ยิน") ;
+  heart_N = mkN (thbind "ใจ") ;
+  heavy_A = mkA (thbind "หนัก") ;
+  here_Adv = ss (thbind "ที่นี่") ;
 --  hill_N = regN "hill" ;
+  hit_V2 = mkV2 (thbind "ตี") ;
+  hold_V2 = mkV2 (thbind "อุ้ม") ;
 --  hope_VS = mkVS (regV "hope") ;
+  horn_N = mkN (thbind "เขา") ;
 --  horse_N = regN "horse" ;
 --  hot_A = duplADeg "hot" ;
-  house_N = mkN baan_s lag_s ;
+--  house_N = mkN baan_s lag_s ;
+  how_IAdv = ss (thbind "อย่างไร") ;
+  hunt_V2 = mkV2 (thbind "ล่า") ;
+  husband_N = personN (thbind "ผัว") ;
+  ice_N = mkN (thbind "น้ำ" "แข็ง") ;
 --  important_A = compoundADeg (regA "important") ;
+--  inP = mkPrep "in" ;
 --  industry_N = regN "industry" ;
 --  iron_N = regN "iron" ;
+  john_PN = ss "จน" ;
+--  jump_V = regV "jump" ;
+  kill_V2 = mkV2 (thbind "ฆ่า") ;
 --  king_N = regN "king" ;
+  knee_N = mkN (thbind "เข่า") ;
   know_V2 = mkV2 "รู้" ; -----
   know_VQ = lin VQ (regV "รู้") ; -----
   know_VS = lin VS (regV "รู้") ; -----
---  lake_N = regN "lake" ;
+  lake_N = mkN (thbind "ทะ" "เล" "สาบ") ;
 --  lamp_N = regN "lamp" ;
+--  language_N = regN "language" ;
+  laugh_V = mkV (thbind "หัว" "เราะ") ;
+  leaf_N = mkN (thbind "ใบ") ;
 --  learn_V2 = dirV2 (regV "learn") ;
 --  leather_N = regN "leather" ;
 --  leave_V2 = dirV2 (irregV "leave" "left" "left") ;
+--  left_Ord = ss "left" ;
+  leg_N = mkN (thbind "ขา") ;
+  lie_V = mkV (thbind "นอน") ;
 --  like_V2 = dirV2 (regV "like") ;
 --  listen_V2 = mkV2 (regV "listen") toP ;
---  live_V = (regV "live") ;
+  live_V = mkV (thbind "อยู่") ;
-  john_PN = ss "จน" ;
+  liver_N = mkN (thbind "ตับ") ;
---  long_A = regADeg "long" ;
+  long_A = mkA (thbind "ยาว") ;
 --  lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
+  louse_N = animalN (thbind "เล็น") ;
 --  love_N = regN "love" ;
-  love_V2 = mkV2 rak_s ;
+--  love_V2 = mkV2 rak_s ;
---  man_N = mk2N "man" "men" ;
+  man_N = personN (thbind "ชาย") ;
+  many_Det = mkN (thbind "หลาย") ;
 --  married_A2 = mkA2 (regA "married") toP ;
---  meat_N = regN "meat" ;
+  meat_N = mkN (thbind "เนื้อ") ;
 --  milk_N = regN "milk" ;
---  moon_N = regN "moon" ;
+  moon_N = mkN (thbind "เดือน") ;
+  mother_N = personN (thbind "แม่") ;
 --  mother_N2 = regN2 "mother" ;
---  mountain_N = regN "mountain" ;
+  mountain_N = mkN (thbind "เขา") ;
+  mouth_N = mkN (thbind "ปาก") ;
 --  music_N = regN "music" ;
---  narrow_A = regADeg "narrow" ;
+--  name_N = regN "name" ;
---  new_A = regADeg "new" ;
+  narrow_A = mkA (thbind "แคบ") ;
+--  near_A = regA "near" ;
+  near_Adv = ss (thbind "ใกล้") ;
+  neck_N = mkN (thbind "คอ") ;
+  new_A = mkA (thbind "ใหม่") ;
 --  newspaper_N = regN "newspaper" ;
+  night_N = mkN (thbind "กลาง" "คืน") ;
+  nose_N = mkN (thbind "จมูก") ;
+--  now_Adv = mkAdv "now" ;
+--  number_N = regN "number" ;
 --  oil_N = regN "oil" ;
---  old_A = regADeg "old" ;
+  old_A = mkA (thbind "แก่") ;
+--  onP = mkPrep "on" ;
 --  open_V2 = dirV2 (regV "open") ;
+  other_A = mkA (thbind "อื่น") ;
 --  paint_V2A = mkV2A (regV "paint") noPrep ;
 --  paper_N = regN "paper" ;
 --  paris_PN = regPN "Paris" ;
 --  peace_N = regN "peace" ;
 --  pen_N = regN "pen" ;
+--  person_N = genderN human (regN "person") ;
 --  planet_N = regN "planet" ;
 --  plastic_N = regN "plastic" ;
+  play_V = mkV (thbind "เล่น") ;
 --  play_V2 = dirV2 (regV "play") ;
 --  policeman_N = regN "policeman" ;
 --  priest_N = regN "priest" ;
 --  probable_AS = mkAS (regA "probable") ;
+  pull_V2 = mkV2 (thbind "ดึง") ;
+  push_V2 = mkV2 (thbind "ผลัก") ;
+--  put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ;
 --  queen_N = regN "queen" ;
 --  radio_N = regN "radio" ;
+  rain_N = mkN (thbind "ฝน") ;
 --  rain_V0 = mkV0 (regV "rain") ;
 --  read_V2 = dirV2 (irregV "read" "read" "read") ;
---  red_A = duplADeg "red" ;
+  red_A = mkA (thbind "แดง") ;
 --  religion_N = regN "religion" ;
 --  restaurant_N = regN "restaurant" ;
---  river_N = regN "river" ;
+--  right_Ord = ss "right" ;
+  river_N = mkN (thbind "แม่" "น้ำ") ;
+  road_N = mkN (thbind "ทาง") ;
 --  rock_N = regN "rock" ;
 --  roof_N = regN "roof" ;
+  root_N = mkN (thbind "ราก") ;
+  rope_N = mkN (thbind "เชือก") ;
+  rotten_A = mkA (thbind "เน่า") ;
+  round_A = mkA (thbind "กลม") ;
+  rub_V2 = mkV2 (thbind "ถู") ;
 --  rubber_N = regN "rubber" ;
+--  rule_N = regN "rule" ;
 --  run_V = (irregDuplV "run" "ran" "run") ;
---  say_VS = mkVS (irregV "say" "said" "said") ;
+  salt_N = mkN (thbind "เกลือ") ;
+  sand_N = mkN (thbind "ทราย") ;
+---  say_VS = lin VS (mkV (thbind "พูด")) ;
 --  school_N = regN "school" ;
 --  science_N = regN "science" ;
---  sea_N = regN "sea" ;
+  scratch_V2 = mkV2 (thbind "เกา") ;
+  sea_N = mkN (thbind "ทะ" "เล") ;
+  see_V2 = mkV2 (thbind "เห็น") ;
+  seed_N = mkN (thbind "เม็ด") ;
 --  seek_V2 = dirV2 (irregV "seek" "sought" "sought") ;
---  see_V2 = dirV2 (irregV "see" "saw" "seen") ;
 --  sell_V3 = dirV3 (irregV "sell" "sold" "sold") toP ;
 --  send_V3 = dirV3 (irregV "send" "sent" "sent") toP ;
+--  sew_V = sew_V ;
+  sew_V2 = mkV2 (thbind "เย็บ") ;
+  sharp_A = mkA (thbind "คม") ;
 --  sheep_N = mk2N "sheep" "sheep" ;
 --  ship_N = regN "ship" ;
 --  shirt_N = regN "shirt" ;
 --  shoe_N = regN "shoe" ;
 --  shop_N = regN "shop" ;
---  short_A = regADeg "short" ;
+  short_A = mkA (thbind "สั้น") ;
 --  silver_N = regN "silver" ;
+  sing_V = mkV (thbind "ร้อง") ;
 --  sister_N = regN "sister" ;
-  sleep_V = resV noon_s lap_s ;
+  sit_V = mkV (thbind "นั่ง") ;
---  small_A = regADeg "small" ;
+  skin_N = mkN (thbind "หนัง") ;
---  snake_N = regN "snake" ;
+  sky_N = mkN (thbind "ฟ้า") ;
+  sleep_V = mkV (thbind "นอน") ;
+  small_A = mkA (thbind "เล็ก") ;
+  smell_V = mkV (thbind "มีก" "ลิ่น") ;
+  smoke_N = mkN (thbind "ควัน") ;
+  smooth_A = mkA (thbind "ละ" "มุน") ;
+  snake_N = animalN (thbind "งู") ;
+  snow_N = mkN (thbind "หิมะ") ;
 --  sock_N = regN "sock" ;
+  some_Det = mkN (thbind "บ้าง") ;
+--  song_N = regN "song" ;
 --  speak_V2 = dirV2 (irregV "speak" "spoke" "spoken") ;
---  star_N = regN "star" ;
+  spit_V = mkV (thbind "ถ่ม") ;
+  split_V2 = mkV2 (thbind "ผ่า") ;
+  squeeze_V2 = mkV2 (thbind "คั้น") ;
+  stab_V2 = mkV2 (thbind "แทง") ;
+  stand_V = mkV (thbind "ยืน") ;
+  star_N = mkN (thbind "ดาว") ;
 --  steel_N = regN "steel" ;
---  stone_N = regN "stone" ;
+  stick_N = mkN (thbind "กิ่ง") ;
+  stone_N = mkN (thbind "หิน") ;
+--  stop_V = regDuplV "stop" ;
 --  stove_N = regN "stove" ;
+  straight_A = mkA (thbind "ดิ่ง") ;
 --  student_N = regN "student" ;
 --  stupid_A = regADeg "stupid" ;
---  sun_N = regN "sun" ;
+  suck_V2 = mkV2 (thbind "ดูด") ;
+  sun_N = mkN (thbind "ตะ" "วัน") ;
+  swell_V = mkV (thbind "ตุ่ม") ;
+  swim_V = mkV (thbind "ว่าย") ;
 --  switch8off_V2 = dirV2 (partV (regV "switch") "off") ;
 --  switch8on_V2 = dirV2 (partV (regV "switch") "on") ;
 --  table_N = regN "table" ;
+  tail_N = mkN (thbind "หาง") ;
 --  talk_V3 = mkV3 (regV "talk") toP aboutP ;
---  teacher_N = regN "teacher" ;
 --  teach_V2 = dirV2 (irregV "teach" "taught" "taught") ;
+--  teacher_N = regN "teacher" ;
 --  television_N = regN "television" ;
---  thick_A = regADeg "thick" ;
+  there_Adv = ss (thbind "ที่นั่น") ;
---  thin_A = duplADeg "thin" ;
+  thick_A = mkA (thbind "หนา") ;
---  train_N = regN "train" ;
+  thin_A = mkA (thbind "บาง") ;
+  think_V = mkV (thbind "คิด") ;
+  throw_V2 = mkV2 (thbind "ขว้าง") ;
+  tie_V2 = mkV2 (thbind "ผูก") ;
+--  toP = mkPrep "to" ;
   today_Adv = ss (thbind "วัน" "นี้") ;
+  tongue_N = mkN (thbind "ลิ้น") ;
+  tooth_N = mkN (thbind "ฟัน") ;
+--  train_N = regN "train" ;
 --  travel_V = (regDuplV "travel") ;
---  tree_N = regN "tree" ;
+  tree_N = mkN (thbind "ไม้") ;
--- ---- trousers_N = regN "trousers" ;
+  turn_V = mkV (thbind "หัน") ;
 --  ugly_A = regADeg "ugly" ;
 --  understand_V2 = dirV2 (irregV "understand" "understood" "understood") ;
 --  university_N = regN "university" ;
 --  village_N = regN "village" ;
+  vomit_V = mkV (thbind "อ้วก") ;
 --  wait_V2 = mkV2 (regV "wait") forP ;
---  walk_V = (regV "walk") ;
+  walk_V = mkV (thbind "เดิน") ;
---  warm_A = regADeg "warm" ;
 --  war_N = regN "war" ;
+  warm_A = mkA (thbind "ร้อน") ;
+  wash_V2 = mkV2 (thbind "ล้าง") ;
 --  watch_V2 = dirV2 (regV "watch") ;
---  water_N = regN "water" ;
+  water_N = mkN (thbind "น้ำ") ;
---  white_A = regADeg "white" ;
+  wet_A = mkA (thbind "เปียก") ;
+  when_IAdv = ss (thbind "เมื่อไร") ;
+  white_A = mkA (thbind "ขาว") ;
+  wide_A = mkA (thbind "กว้าง") ;
+  wife_N = personN (thbind "เมีย") ;
+--  win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
+  wind_N = mkN (thbind "ลม") ;
 --  window_N = regN "window" ;
 --  wine_N = regN "wine" ;
---  win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
+  wing_N = mkN (thbind "ปิก") ;
-  woman_N = mkN (puu_s ++ yig_s) khon_s ;
+  wipe_V2 = mkV2 (thbind "เช็ด") ;
+  woman_N = personN (thbind "หญิง") ;
 --  wonder_VQ = mkVQ (regV "wonder") ;
 --  wood_N = regN "wood" ;
---  write_V2 = dirV2 (irregV "write" "wrote" "written") ;
---  yellow_A = regADeg "yellow" ;
---  young_A = regADeg "young" ;
---
---  do_V2 = dirV2 (mkV "do" "does" "did" "done" "doing") ;
---  now_Adv = mkAdv "now" ;
---  already_Adv = mkAdv "already" ;
---  song_N = regN "song" ;
---  add_V3 = dirV3 (regV "add") toP ;
---  number_N = regN "number" ;
---  put_V2 = mkV2 (irregDuplV "put" "put" "put") noPrep ;
---  stop_V = regDuplV "stop" ;
---  jump_V = regV "jump" ;
---
---  left_Ord = ss "left" ;
---  right_Ord = ss "right" ;
---  far_Adv = mkAdv "far" ;
---  correct_A = (regA "correct") ;
---  dry_A = regA "dry" ;
---  dull_A = regA "dull" ;
---  full_A = regA "full" ;
---  heavy_A = regA "heavy" ;
---  near_A = regA "near" ;
---  rotten_A = (regA "rotten") ;
---  round_A = regA "round" ;
---  sharp_A = regA "sharp" ;
---  smooth_A = regA "smooth" ;
---  straight_A = regA "straight" ;
---  wet_A = regA "wet" ; ----
---  wide_A = regA "wide" ;
---  animal_N = regN "animal" ;
---  ashes_N = regN "ash" ; -- FIXME: plural only?
---  back_N = regN "back" ;
---  bark_N = regN "bark" ;
---  belly_N = regN "belly" ;
---  blood_N = regN "blood" ;
---  bone_N = regN "bone" ;
---  breast_N = regN "breast" ;
---  cloud_N = regN "cloud" ;
---  day_N = regN "day" ;
---  dust_N = regN "dust" ;
---  ear_N = regN "ear" ;
---  earth_N = regN "earth" ;
---  egg_N = regN "egg" ;
---  eye_N = regN "eye" ;
---  fat_N = regN "fat" ;
---  feather_N = regN "feather" ;
---  fingernail_N = regN "fingernail" ;
---  fire_N = regN "fire" ;
---  flower_N = regN "flower" ;
---  fog_N = regN "fog" ;
---  foot_N = mk2N "foot" "feet" ;
---  forest_N = regN "forest" ;
---  grass_N = regN "grass" ;
---  guts_N = regN "gut" ; -- FIXME: no singular
---  hair_N = regN "hair" ;
---  hand_N = regN "hand" ;
---  head_N = regN "head" ;
---  heart_N = regN "heart" ;
---  horn_N = regN "horn" ;
---  husband_N = genderN masculine (regN "husband") ;
---  ice_N = regN "ice" ;
---  knee_N = regN "knee" ;
---  leaf_N = mk2N "leaf" "leaves" ;
---  leg_N = regN "leg" ;
---  liver_N = regN "liver" ;
---  louse_N = mk2N "louse" "lice" ;
---  mouth_N = regN "mouth" ;
---  name_N = regN "name" ;
---  neck_N = regN "neck" ;
---  night_N = regN "night" ;
---  nose_N = regN "nose" ;
---  person_N = genderN human (regN "person") ;
---  rain_N = regN "rain" ;
---  road_N = regN "road" ;
---  root_N = regN "root" ;
---  rope_N = regN "rope" ;
---  salt_N = regN "salt" ;
---  sand_N = regN "sand" ;
---  seed_N = regN "seed" ;
---  skin_N = regN "skin" ;
---  sky_N = regN "sky" ;
---  smoke_N = regN "smoke" ;
---  snow_N = regN "snow" ;
---  stick_N = regN "stick" ;
---  tail_N = regN "tail" ;
---  tongue_N = regN "tongue" ;
---  tooth_N = mk2N "tooth" "teeth" ;
---  wife_N = genderN feminine (mk2N "wife" "wives") ;
---  wind_N = regN "wind" ;
---  wing_N = regN "wing" ;
---  worm_N = regN "worm" ;
---  year_N = regN "year" ;
---  blow_V = blow_V ;
---  breathe_V = dirV2 (regV "breathe") ;
---  burn_V = burn_V ;
---  dig_V = dig_V ;
---  fall_V = fall_V ;
---  float_V = regV "float" ;
---  flow_V = regV "flow" ;
---  fly_V = fly_V ;
---  freeze_V = freeze_V ;
---  give_V3 = dirV3 give_V toP ;
---  laugh_V = regV "laugh" ;
---  lie_V = lie_V ;
---  play_V = regV "play" ;
---  sew_V = sew_V ;
---  sing_V = sing_V ;
---  sit_V = sit_V ;
---  smell_V = regV "smell" ;
---  spit_V = spit_V ;
---  stand_V = stand_V ;
---  swell_V = swell_V ;
---  swim_V = swim_V ;
---  think_V = think_V ;
---  turn_V = regV "turn" ;
---  vomit_V = regV "vomit" ;
---
---  bite_V2 = dirV2 bite_V ;
---  count_V2 = dirV2 (regV "count") ;
---  cut_V2 = dirV2 cut_V ;
---  fear_V2 = dirV2 (regV "fear") ;
---  fight_V2 = dirV2 fight_V ;
---  hit_V2 = dirV2 hit_V ;
---  hold_V2 = dirV2 hold_V ;
---  hunt_V2 = dirV2 (regV "hunt") ;
---  kill_V2 = dirV2 (regV "kill") ;
---  pull_V2 = dirV2 (regV "pull") ;
---  push_V2 = dirV2 (regV "push") ;
---  rub_V2 = dirV2 (regDuplV "rub") ;
---  scratch_V2 = dirV2 (regV "scratch") ;
---  split_V2 = dirV2 split_V ;
---  squeeze_V2 = dirV2 (regV "squeeze") ;
---  stab_V2 = dirV2 (regDuplV "stab") ;
---  suck_V2 = dirV2 (regV "suck") ;
---  throw_V2 = dirV2 throw_V ;
---  tie_V2 = dirV2 (regV "tie") ;
---  wash_V2 = dirV2 (regV "wash") ;
---  wipe_V2 = dirV2 (regV "wipe") ;
---
-----  other_A = regA "other" ;
---
---  grammar_N = regN "grammar" ;
---  language_N = regN "language" ;
---  rule_N = regN "rule" ;
---
---oper
---  aboutP = mkPrep "about" ;
---  atP = mkPrep "at" ;
---  forP = mkPrep "for" ;
---  fromP = mkPrep "from" ;
---  inP = mkPrep "in" ;
---  onP = mkPrep "on" ;
---  toP = mkPrep "to" ;
---
-lin
-  here_Adv = ss (thbind "ที่นี่") ;
-  there_Adv = ss (thbind "ที่นั่น") ;
-  when_IAdv = ss (thbind "เมื่อไร") ;
-  how_IAdv = ss (thbind "อย่างไร") ;
-  all_Predet = ss (thbind "ทั้ง" "หมด") ;
-  many_Det = mkN (thbind "หลาย") ;
-  some_Det = mkN (thbind "บ้าง") ;
-  few_Det = mkN (thbind "สองสาม") ;
-  other_A = mkA (thbind "อื่น") ;
---  big_A = mkA (thbind "ใหญ่") ;
-  long_A = mkA (thbind "ยาว") ;
-  wide_A = mkA (thbind "กว้าง") ;
-  thick_A = mkA (thbind "หนา") ;
-  heavy_A = mkA (thbind "หนัก") ;
-  small_A = mkA (thbind "เล็ก") ;
-  short_A = mkA (thbind "สั้น") ;
-  narrow_A = mkA (thbind "แคบ") ;
-  thin_A = mkA (thbind "บาง") ;
---  woman_N = personN (thbind "หญิง") ;
-  man_N = personN (thbind "ชาย") ;
---  child_N = mkN (thbind "เด็ก") ;
-  wife_N = personN (thbind "เมีย") ;
-  husband_N = personN (thbind "ผัว") ;
-  mother_N = personN (thbind "แม่") ;
-  father_N = personN (thbind "พ่อ") ;
-  animal_N = animalN (thbind "สัตว์") ;
-  fish_N = animalN (thbind "ปลา") ;
-  bird_N = animalN (thbind "นก") ;
-  dog_N = animalN (thbind "หมา") ;
-  louse_N = animalN (thbind "เล็น") ;
-  snake_N = animalN (thbind "งู") ;
   worm_N = animalN (thbind "หนอน") ;
-  tree_N = mkN (thbind "ไม้") ;
+--  write_V2 = dirV2 (irregV "write" "wrote" "written") ;
-  forest_N = mkN (thbind "ดง") ;
-  stick_N = mkN (thbind "กิ่ง") ;
-  fruit_N = mkN (thbind "หมาก") ;
-  seed_N = mkN (thbind "เม็ด") ;
-  leaf_N = mkN (thbind "ใบ") ;
-  root_N = mkN (thbind "ราก") ;
-  bark_N = mkN (thbind "เปลือก") ;
-  flower_N = mkN (thbind "ดอก") ;
-  grass_N = mkN (thbind "หญ้า") ;
-  rope_N = mkN (thbind "เชือก") ;
-  skin_N = mkN (thbind "หนัง") ;
-  meat_N = mkN (thbind "เนื้อ") ;
-  blood_N = mkN (thbind "เลือด") ;
-  bone_N = mkN (thbind "กระดูก") ;
-  fat_N = mkN (thbind "มัน") ;
-  egg_N = mkN (thbind "ไข่") ;
-  horn_N = mkN (thbind "เขา") ;
-  tail_N = mkN (thbind "หาง") ;
-  feather_N = mkN (thbind "ขน") ;
-  hair_N = mkN (thbind "ผม") ;
-  head_N = mkN (thbind "หัว") ;
-  ear_N = mkN (thbind "หู") ;
-  eye_N = mkN (thbind "ตา") ;
-  nose_N = mkN (thbind "จมูก") ;
-  mouth_N = mkN (thbind "ปาก") ;
-  tooth_N = mkN (thbind "ฟัน") ;
-  tongue_N = mkN (thbind "ลิ้น") ;
-  fingernail_N = mkN (thbind "เล็บ") ;
-  foot_N = mkN (thbind "เท้า") ;
-  leg_N = mkN (thbind "ขา") ;
-  knee_N = mkN (thbind "เข่า") ;
-  hand_N = mkN (thbind "มือ") ;
-  wing_N = mkN (thbind "ปิก") ;
-  belly_N = mkN (thbind "พุง") ;
-  guts_N = mkN (thbind "ไส้") ;
-  neck_N = mkN (thbind "คอ") ;
-  back_N = mkN (thbind "หลัง") ;
-  breast_N = mkN (thbind "นม") ;
-  heart_N = mkN (thbind "ใจ") ;
-  liver_N = mkN (thbind "ตับ") ;
---  drink_V2 = mkV2 (thbind "ดื่ม") ;
-  eat_V2 = mkV2 (thbind "กิน") ;
-  bite_V2 = mkV2 (thbind "กัด") ;
-  suck_V2 = mkV2 (thbind "ดูด") ;
-  spit_V = mkV (thbind "ถ่ม") ;
-  vomit_V = mkV (thbind "อ้วก") ;
-  blow_V = mkV (thbind "พัด") ;
-  breathe_V = mkV (thbind "หาย" "ใจ") ;
-  laugh_V = mkV (thbind "หัว" "เราะ") ;
-  see_V2 = mkV2 (thbind "เห็น") ;
-  hear_V2 = mkV2 (thbind "ยิน") ;
---  know_V2 = mkV2 (thbind "รู้") ;
-  think_V = mkV (thbind "คิด") ;
-  smell_V = mkV (thbind "มีก" "ลิ่น") ;
-  fear_N = mkN (thbind "กลัว") ;
---  sleep_V = mkV (thbind "นอน") ;
-  live_V = mkV (thbind "อยู่") ;
-  die_V = mkV (thbind "ตาย") ;
-  kill_V2 = mkV2 (thbind "ฆ่า") ;
-  fight_V = mkV (thbind "สู้") ;
-  hunt_V2 = mkV2 (thbind "ล่า") ;
-  hit_V2 = mkV2 (thbind "ตี") ;
-  cut_V2 = mkV2 (thbind "ตัด") ;
-  split_V2 = mkV2 (thbind "ผ่า") ;
-  stab_V2 = mkV2 (thbind "แทง") ;
-  scratch_V2 = mkV2 (thbind "เกา") ;
-  dig_V2 = mkV2 (thbind "ขุด") ;
-  swim_V = mkV (thbind "ว่าย") ;
-  fly_V = mkV (thbind "บิน") ;
-  walk_V = mkV (thbind "เดิน") ;
-  come_V = mkV (thbind "มา") ;
-  lie_V = mkV (thbind "นอน") ;
-  sit_V = mkV (thbind "นั่ง") ;
-  stand_V = mkV (thbind "ยืน") ;
-  turn_V = mkV (thbind "หัน") ;
-  fall_V = mkV (thbind "ตก") ;
-----  give_V3 = mkV3 (thbind "ให้") ;
-  hold_V2 = mkV2 (thbind "อุ้ม") ;
-  squeeze_V2 = mkV2 (thbind "คั้น") ;
-  rub_V2 = mkV2 (thbind "ถู") ;
-  wash_V2 = mkV2 (thbind "ล้าง") ;
-  wipe_V2 = mkV2 (thbind "เช็ด") ;
-  pull_V2 = mkV2 (thbind "ดึง") ;
-  push_V2 = mkV2 (thbind "ผลัก") ;
-  throw_V2 = mkV2 (thbind "ขว้าง") ;
-  tie_V2 = mkV2 (thbind "ผูก") ;
-  sew_V2 = mkV2 (thbind "เย็บ") ;
-  count_V2 = mkV2 (thbind "นับ") ;
---  say_VS = lin VS (mkV (thbind "พูด")) ;
-  sing_V = mkV (thbind "ร้อง") ;
-  play_V = mkV (thbind "เล่น") ;
-  float_V = mkV (thbind "ลอย") ;
-  flow_V = mkV (thbind "ไหล") ;
-  freeze_V = mkV (thbind "แข็ง") ;
-  swell_V = mkV (thbind "ตุ่ม") ;
-  sun_N = mkN (thbind "ตะ" "วัน") ;
-  moon_N = mkN (thbind "เดือน") ;
-  star_N = mkN (thbind "ดาว") ;
-  water_N = mkN (thbind "น้ำ") ;
-  rain_N = mkN (thbind "ฝน") ;
-  river_N = mkN (thbind "แม่" "น้ำ") ;
-  lake_N = mkN (thbind "ทะ" "เล" "สาบ") ;
-  sea_N = mkN (thbind "ทะ" "เล") ;
-  salt_N = mkN (thbind "เกลือ") ;
-  stone_N = mkN (thbind "หิน") ;
-  sand_N = mkN (thbind "ทราย") ;
-  dust_N = mkN (thbind "ฝุ่น") ;
-  earth_N = mkN (thbind "ดิน") ;
-  cloud_N = mkN (thbind "เมฆ") ;
-  fog_N = mkN (thbind "หมอก") ;
-  sky_N = mkN (thbind "ฟ้า") ;
-  wind_N = mkN (thbind "ลม") ;
-  snow_N = mkN (thbind "หิมะ") ;
-  ice_N = mkN (thbind "น้ำ" "แข็ง") ;
-  smoke_N = mkN (thbind "ควัน") ;
-  fire_N = mkN (thbind "ไฟ") ;
-  ash_N = mkN (thbind "เถ้า") ;
-  burn_V = mkV (thbind "เผา") ;
-  road_N = mkN (thbind "ทาง") ;
-  mountain_N = mkN (thbind "เขา") ;
-  red_A = mkA (thbind "แดง") ;
-  green_A = mkA (thbind "เขียว") ;
-  yellow_A = mkA (thbind "เหลือง") ;
-  white_A = mkA (thbind "ขาว") ;
-  black_A = mkA (thbind "ดำ") ;
-  night_N = mkN (thbind "กลาง" "คืน") ;
-  day_N = mkN (thbind "กลาง" "วัน") ;
   year_N = mkN (thbind "ปี") ;
-  warm_A = mkA (thbind "ร้อน") ;
+  yellow_A = mkA (thbind "เหลือง") ;
-  cold_A = mkA (thbind "หนาว") ;
+--  young_A = regADeg "young" ;
-  full_A = mkA (thbind "เต็ม") ;
-  new_A = mkA (thbind "ใหม่") ;
-  old_A = mkA (thbind "แก่") ;
-  good_A = mkA (thbind "ดี") ;
-
-  bad_A = mkA (thbind "เลว") ;
-  rotten_A = mkA (thbind "เน่า") ;
-  dirty_A = mkA (thbind "สก" "ปรก") ;
-  straight_A = mkA (thbind "ดิ่ง") ;
-  round_A = mkA (thbind "กลม") ;
-  sharp_A = mkA (thbind "คม") ;
-  dull_A = mkA (thbind "ทื่อ") ;
-  smooth_A = mkA (thbind "ละ" "มุน") ;
-  wet_A = mkA (thbind "เปียก") ;
-  dry_A = mkA (thbind "แห้ง") ;
-  correct_A = mkA (thbind "แท้") ;
-  near_Adv = ss (thbind "ใกล้") ;
-  far_Adv = ss (thbind "ไกล") ;
-
 }