--# -path=.:prelude

concrete LexiconTha of Lexicon = CatTha ** 
  open ParadigmsTha, ResTha, Prelude in {

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" ;
  ashes_N = mkN (thbind "เถ้า") ;
  ask_V2Q = regV "ถาน" ** {c2 = []} ;
--  atP = mkPrep "at" ;
--  baby_N = regN "baby" ;
  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 ; 
  beg_V2V = regV "ขอ" ** {c2 = []} ;
  belly_N = mkN (thbind "พุง") ;
  big_A = mkA (thbind "ใหญ่") ;
--  bike_N = regN "bike" ;
  bird_N = animalN (thbind "นก") ;
  bite_V2 = mkV2 (thbind "กัด") ;
  black_A = mkA (thbind "ดำ") ;
  blood_N = mkN (thbind "เลือด") ;
  blow_V = mkV (thbind "พัด") ;
--  blue_A = regADeg "blue" ;
--  boat_N = regN "boat" ;
  bone_N = mkN (thbind "กระดูก") ;
  book_N = mkN (thbind 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" ;
--  cap_N = regN "cap" ;
--  car_N = regN "car" ;
--  carpet_N = regN "carpet" ;
--  cat_N = regN "cat" ;
--  ceiling_N = regN "ceiling" ;
--  chair_N = regN "chair" ;
--  cheese_N = regN "cheese" ;
  child_N = mkN (thbind "เด็ก") ;
--  church_N = regN "church" ;
  city_N = mkN "นคร" "แห่ง" ;
--  clean_A = regADeg "clean" ;
--  clever_A = regADeg "clever" ;
--  close_V2 = dirV2 (regV "close") ;
  cloud_N = mkN (thbind "เมฆ") ;
--  coat_N = regN "coat" ;
  cold_A = mkA (thbind "หนาว") ;
  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" ;
  cut_V2 = mkV2 (thbind "ตัด") ;
  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 = animalN (thbind "หมา") ;
--  door_N = regN "door" ;
  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 = 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") ;
  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" ;
--  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 = mkA (thbind "ดี") ;
--  grammar_N = regN "grammar" ;
  grass_N = mkN (thbind "หญ้า") ;
  green_A = mkA (thbind "เขียว") ;
  guts_N = mkN (thbind "ไส้") ;
  hair_N = mkN (thbind "ผม") ;
  hand_N = mkN (thbind "มือ") ;
--  harbour_N = regN "harbour" ;
--  hat_N = regN "hat" ;
--  hate_V2 = dirV2 (regV "hate") ;
--  have_V2 = dirV2 (mkV "have" "has" "had" "had" "having") ;
  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 ;
  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 = mkN (thbind "พระ" "รา" "ชา") (thbind "พระ" "องด์") ;
  knee_N = mkN (thbind "เข่า") ;
  know_V2 = mkV2 "รู้" ; -----
  know_VQ = lin VQ (regV "รู้") ; -----
  know_VS = lin VS (regV "รู้") ; -----
  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 = mkV (thbind "อยู่") ;
  liver_N = mkN (thbind "ตับ") ;
  long_A = mkA (thbind "ยาว") ;
--  lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
  louse_N = animalN (thbind "เล็น") ;
--  love_N = regN "love" ;
  love_V2 = mkV2 rak_s ;
  man_N = personN (thbind "ชาย") ;
  many_Det = mkN (thbind "หลาย") ;
--  married_A2 = mkA2 (regA "married") toP ;
  meat_N = mkN (thbind "เนื้อ") ;
--  milk_N = regN "milk" ;
  moon_N = mkN (thbind "เดือน") ;
  mother_N2 = personN "แม่" ** {c2 = []} ;
  mountain_N = mkN (thbind "เขา") ;
  mouth_N = mkN (thbind "ปาก") ;
--  music_N = regN "music" ;
--  name_N = regN "name" ;
  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 = 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 = ss "ปารีส" ;
--  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 = mkA (thbind "แดง") ;
--  religion_N = regN "religion" ;
--  restaurant_N = regN "restaurant" ;
--  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") ;
  salt_N = mkN (thbind "เกลือ") ;
  sand_N = mkN (thbind "ทราย") ;
---  say_VS = lin VS (mkV (thbind "พูด")) ;
--  school_N = regN "school" ;
--  science_N = regN "science" ;
  scratch_V2 = mkV2 (thbind "เกา") ;
  sea_N = mkN (thbind "ทะ" "เล") ;
  see_V2 = mkV2 (thbind "เห็น") ;
  seed_N = mkN (thbind "เม็ด") ;
--  seek_V2 = dirV2 (irregV "seek" "sought" "sought") ;
--  sell_V3 = dirV3 (irregV "sell" "sold" "sold") toP ;
  send_V3 = regV "ส่ง" ** {c2,c3 = []} ; ---- prep
  sew_V = mkV (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 = mkA (thbind "สั้น") ;
--  silver_N = regN "silver" ;
  sing_V = mkV (thbind "ร้อง") ;
--  sister_N = regN "sister" ;
  sit_V = mkV (thbind "นั่ง") ;
  skin_N = mkN (thbind "หนัง") ;
  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") ;
  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" ;
  stick_N = mkN (thbind "กิ่ง") ;
  stone_N = mkN (thbind "หิน") ;
--  stop_V = regDuplV "stop" ;
--  stove_N = regN "stove" ;
  straight_A = mkA (thbind "ดิ่ง") ;
  student_N = personN (thbind "นัก" "สืก" "สา") ;
--  stupid_A = regADeg "stupid" ;
  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 ;
--  teach_V2 = dirV2 (irregV "teach" "taught" "taught") ;
--  teacher_N = regN "teacher" ;
--  television_N = regN "television" ;
  there_Adv = ss (thbind "ที่นั่น") ;
  thick_A = mkA (thbind "หนา") ;
  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 = mkN (thbind "ไม้") ;
  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 = mkV (thbind "เดิน") ;
--  war_N = regN "war" ;
  warm_A = mkA (thbind "ร้อน") ;
  wash_V2 = mkV2 (thbind "ล้าง") ;
--  watch_V2 = dirV2 (regV "watch") ;
  water_N = mkN (thbind "น้ำ") ;
  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" ;
  wing_N = mkN (thbind "ปิก") ;
  wipe_V2 = mkV2 (thbind "เช็ด") ;
  woman_N = personN (thbind "หญิง") ;
--  wonder_VQ = mkVQ (regV "wonder") ;
--  wood_N = regN "wood" ;
  worm_N = animalN (thbind "หนอน") ;
--  write_V2 = dirV2 (irregV "write" "wrote" "written") ;
  year_N = mkN (thbind "ปี") ;
  yellow_A = mkA (thbind "เหลือง") ;
--  young_A = regADeg "young" ;
}