--# -path=.:../abstract:../../prelude

concrete BasicEng of Basic = ShallowEng ** open NewParadigmsEng in {

flags startcat=Phr ; lexer=textlit ; parser=chart ; unlexer=text ;

lin
  airplane_N = regN "airplane" ;
---  answer_V2S = mkV2S (regV "answer") ;
  apartment_N = regN "apartment" ;
  apple_N = regN "apple" ;
  art_N = regN "art" ;
----  ask_V2Q = mkV2Q (regV "ask") ;
  baby_N = regN "baby" ;
  bad_ADeg = regADeg "bad" ;
  bank_N = regN "bank" ;
  beautiful_ADeg = regADeg "beautiful" ;
----  become_VA = mkVA (regV "become") ;
  beer_N = regN "beer" ;
----  beg_VV = mkVV (regV "beg") ;
----  be_V = (regV "be") ;
  big_ADeg = regADeg "big" ;
  bike_N = regN "bike" ;
  bird_N = regN "bird" ;
  black_ADeg = regADeg "black" ;
  blue_ADeg = regADeg "blue" ;
  boat_N = regN "boat" ;
  book_N = regN "book" ;
  boot_N = regN "boot" ;
  boss_N = regN "boss" ;
  boy_N = regN "boy" ;
  bread_N = regN "bread" ;
  break_V2 = dirV2 (regV "break") ;
  broad_ADeg = regADeg "broad" ;
  brother_N = regN "brother" ;
  brown_ADeg = regADeg "brown" ;
  butter_N = regN "butter" ;
  buy_V2 = dirV2 (regV "buy") ;
  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 = regN "child" ;
  church_N = regN "church" ;
  city_N = regN "city" ;
  clean_ADeg = regADeg "clean" ;
  clever_ADeg = regADeg "clever" ;
  close_V2 = dirV2 (regV "close") ;
  coat_N = regN "coat" ;
  cold_ADeg = regADeg "cold" ;
  come_V = (regV "come") ;
  computer_N = regN "computer" ;
  country_N = regN "country" ;
  cousin_N = regN "cousin" ;
  cow_N = regN "cow" ;
  die_V = (regV "die") ;
  dirty_ADeg = regADeg "dirty" ;
  doctor_N = regN "doctor" ;
  dog_N = regN "dog" ;
  door_N = regN "door" ;
  drink_V2 = dirV2 (regV "drink") ;
  eat_V2 = dirV2 (regV "eat") ;
  enemy_N = regN "enemy" ;
  factory_N = regN "factory" ;
  father_N = regN "father" ;
 ---- fear_VS = mkVS (regV "fear") ;
  find_V2 = dirV2 (regV "find") ;
  fish_N = regN "fish" ;
  floor_N = regN "floor" ;
  forget_V2 = dirV2 (regV "forget") ;
  fridge_N = regN "fridge" ;
  friend_N = regN "friend" ;
  fruit_N = regN "fruit" ;
  garden_N = regN "garden" ;
  girl_N = regN "girl" ;
  glove_N = regN "glove" ;
  gold_N = regN "gold" ;
  good_ADeg = regADeg "good" ;
  go_V = (regV "go") ;
  green_ADeg = regADeg "green" ;
  harbour_N = regN "harbour" ;
  hate_V2 = dirV2 (regV "hate") ;
  hat_N = regN "hat" ;
  have_V2 = dirV2 (regV "have") ;
  hear_V2 = dirV2 (regV "hear") ;
  hill_N = regN "hill" ;
 ---- hope_VS = mkVS (regV "hope") ;
  horse_N = regN "horse" ;
  hot_ADeg = regADeg "hot" ;
  house_N = regN "house" ;
  important_ADeg = regADeg "important" ;
  industry_N = regN "industry" ;
  iron_N = regN "iron" ;
  king_N = regN "king" ;
  know_V2 = dirV2 (regV "know") ;
  lake_N = regN "lake" ;
  lamp_N = regN "lamp" ;
  learn_V2 = dirV2 (regV "learn") ;
  leather_N = regN "leather" ;
  leave_V2 = dirV2 (regV "leave") ;
  like_V2 = dirV2 (regV "like") ;
  listen_V2 = dirV2 (regV "listen") ;
  live_V = (regV "live") ;
  long_ADeg = regADeg "long" ;
  lose_V2 = dirV2 (regV "lose") ;
  love_N = regN "love" ;
  love_V2 = dirV2 (regV "love") ;
  man_N = regN "man" ;
  meat_N = regN "meat" ;
  milk_N = regN "milk" ;
  moon_N = regN "moon" ;
  mother_N = regN "mother" ;
  mountain_N = regN "mountain" ;
  music_N = regN "music" ;
  narrow_ADeg = regADeg "narrow" ;
  new_ADeg = regADeg "new" ;
  newspaper_N = regN "newspaper" ;
  oil_N = regN "oil" ;
  old_ADeg = regADeg "old" ;
  open_V2 = dirV2 (regV "open") ;
  paper_N = regN "paper" ;
  peace_N = regN "peace" ;
  pen_N = regN "pen" ;
  planet_N = regN "planet" ;
  plastic_N = regN "plastic" ;
  play_V2 = dirV2 (regV "play") ;
  policeman_N = regN "policeman" ;
  priest_N = regN "priest" ;
  queen_N = regN "queen" ;
  radio_N = regN "radio" ;
  read_V2 = dirV2 (regV "read") ;
  red_ADeg = regADeg "red" ;
  religion_N = regN "religion" ;
  restaurant_N = regN "restaurant" ;
  river_N = regN "river" ;
  rock_N = regN "rock" ;
  roof_N = regN "roof" ;
  rubber_N = regN "rubber" ;
  run_V = (regV "run") ;
 ---- say_VS = mkVS (regV "say") ;
  school_N = regN "school" ;
  science_N = regN "science" ;
  sea_N = regN "sea" ;
  seek_V2 = dirV2 (regV "seek") ;
  see_V2 = dirV2 (regV "see") ;
----  sell_V3 = mkV3 (regV "sell") ;
----  send_V3 = mkV3 (regV "send") ;
  sheep_N = regN "sheep" ;
  ship_N = regN "ship" ;
  shirt_N = regN "shirt" ;
  shoe_N = regN "shoe" ;
  shop_N = regN "shop" ;
  short_ADeg = regADeg "short" ;
  silver_N = regN "silver" ;
  sister_N = regN "sister" ;
  sleep_V = (regV "sleep") ;
  small_ADeg = regADeg "small" ;
  snake_N = regN "snake" ;
  sock_N = regN "sock" ;
  speak_V2 = dirV2 (regV "speak") ;
  star_N = regN "star" ;
  steel_N = regN "steel" ;
  stone_N = regN "stone" ;
  stove_N = regN "stove" ;
  student_N = regN "student" ;
  stupid_ADeg = regADeg "stupid" ;
  sun_N = regN "sun" ;
  switch8off_V = (regV "switch8off") ;
  switch8on_V = (regV "switch8on") ;
  table_N = regN "table" ;
  teacher_N = regN "teacher" ;
  teach_V2 = dirV2 (regV "teach") ;
  television_N = regN "television" ;
  thick_ADeg = regADeg "thick" ;
  thin_ADeg = regADeg "thin" ;
  train_N = regN "train" ;
  travel_V = (regV "travel") ;
  tree_N = regN "tree" ;
  trousers_N = regN "trousers" ;
  ugly_ADeg = regADeg "ugly" ;
  understand_V2 = dirV2 (regV "understand") ;
  university_N = regN "university" ;
  village_N = regN "village" ;
  wait_V2 = dirV2 (regV "wait") ;
  walk_V = (regV "walk") ;
  warm_ADeg = regADeg "warm" ;
  war_N = regN "war" ;
  watch_V2 = dirV2 (regV "watch") ;
  water_N = regN "water" ;
  white_ADeg = regADeg "white" ;
  window_N = regN "window" ;
  wine_N = regN "wine" ;
  win_V2 = dirV2 (regV "win") ;
  woman_N = regN "woman" ;
  wood_N = regN "wood" ;
  write_V2 = dirV2 (regV "write") ;
  yellow_ADeg = regADeg "yellow" ;
  young_ADeg = regADeg "young" ;
} ;