--# -path=.:prelude

concrete LexiconZul of Lexicon = CatZul **
  open ParadigmsZul, Prelude in {

flags
  optimize=values ;

-- lin
--   airplane_N = regN "airplane" ;
--   alas_Interj = ss "alas" ;
--   answer_V2S = mkV2S (mkV "answer" "answered") toP ;
--   apartment_N = regN "apartment" ;
--   apple_N = regN "apple" ;
--   art_N = regN "art" ;
--   ask_V2Q = mkV2Q (regV "ask") noPrep ;
--   baby_N = regN "baby" ;
--   bad_A = mkADeg "bad" "worse" "worst" "badly" ;
--   bank_N = regN "bank" ;
--   beautiful_A = compoundADeg (regA "beautiful") ;
--   become_VA = mkVA (irregV "become" "became" "become") ;
--   beer_N = regN "beer" ;
--   beg_V2V = mkV2V (regDuplV "beg") noPrep toP ;
--   -- prevent_V2V = ingV2V (mkV "prevent") noPrep (mkPrep "from") ;
--   -- make_V2V = mkV2V make_V noPrep noPrep ;
--   big_A = duplADeg "big" ;
--   bike_N = regN "bike" ;
--   bird_N = regN "bird" ;
--   black_A = regADeg "black" ;
--   blue_A = regADeg "blue" ;
--   boat_N = regN "boat" ;
--   book_N = regN "book" ;
--   boot_N = regN "boot" ;
--   boss_N = mkN human (regN "boss") ;
--   boy_N = mkN masculine (regN "boy") ;
--   bread_N = regN "bread" ;
--   break_V2 = dirV2 (irregV "break" "broke" "broken") ;
--   broad_A = regADeg "broad" ;
--   brother_N2 = mkN2 (mkN masculine (mkN "brother")) (mkPrep "of") ;
--   brown_A = regADeg "brown" ;
--   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 = mk2N "child" "children" ;
--   church_N = regN "church" ;
--   city_N = regN "city" ;
--   clean_A = regADeg "clean" ;
--   clever_A = mkA "clever" "cleverer" ;
--   close_V2 = dirV2 (regV "close") ;
--   coat_N = regN "coat" ;
--   cold_A = regADeg "cold" ;
--   come_V = (irregV "come" "came" "come") ;
--   computer_N = regN "computer" ;
--   country_N = regN "country" ;
--   cousin_N = mkN human (regN "cousin") ;
--   cow_N = regN "cow" ;
--   die_V = (regV "die") ;
--   dirty_A = regADeg "dirty" ;
--   distance_N3 = mkN3 (regN "distance") fromP toP ;
--   doctor_N = mkN human (regN "doctor") ;
--   dog_N = regN "dog" ;
--   door_N = regN "door" ;
--   drink_V2 = dirV2 (irregV "drink" "drank" "drunk") ;
--   easy_A2V = mkA2V (regA "easy") forP ;
--   eat_V2 = dirV2 (irregV "eat" "ate" "eaten") ;
--   empty_A = regADeg "empty" ;
--   enemy_N = regN "enemy" ;
--   factory_N = regN "factory" ;
--   father_N2 = mkN2 (mkN masculine (mkN "father")) (mkPrep "of") ;
--   fear_VS = mkVS (regV "fear") ;
--   find_V2 = dirV2 (irregV "find" "found" "found") ;
--   fish_N = mk2N "fish" "fish" ;
--   floor_N = regN "floor" ;
--   forget_V2 = dirV2 (irregDuplV "forget" "forgot" "forgotten") ;
--   fridge_N = regN "fridge" ;
--   friend_N = mkN human (regN "friend") ;
--   fruit_N = mkN "fruit" "fruit" ; --- was: fruit, fruits before 7/12/2012
--   fun_AV = mkAV (regA "fun") ;
--   garden_N = regN "garden" ;
--   girl_N = mkN feminine (regN "girl") ;
--   glove_N = regN "glove" ;
--   gold_N = regN "gold" ;
--   good_A = mkADeg "good" "better" "best" "well" ;
--   go_V = mk5V "go" "goes" "went" "gone" "going" ;
--   green_A = regADeg "green" ;
--   harbour_N = regN "harbour" ;
--   hate_V2 = dirV2 (regV "hate") ;
--   hat_N = regN "hat" ;
--   hear_V2 = dirV2 (irregV "hear" "heard" "heard") ;
--   hill_N = regN "hill" ;
--   hope_VS = mkVS (regV "hope") ;
--   horse_N = regN "horse" ;
--   hot_A = duplADeg "hot" ;
--   house_N = regN "house" ;
--   important_A = compoundADeg (regA "important") ;
--   industry_N = regN "industry" ;
--   iron_N = regN "iron" ;
--   king_N = mkN masculine (regN "king") ;
--   know_V2 = dirV2 (irregV "know" "knew" "known") ;
--   know_VQ = mkVQ (irregV "know" "knew" "known") ;
--   know_VS = mkVS (irregV "know" "knew" "known") ;
--   lake_N = regN "lake" ;
--   lamp_N = regN "lamp" ;
--   learn_V2 = dirV2 (regV "learn") ;
--   leather_N = regN "leather" ;
--   leave_V2 = dirV2 (irregV "leave" "left" "left") ;
--   like_V2 = dirV2 (regV "like") ;
--   listen_V2 = prepV2 (mkV "listen" "listened") toP ;
--   live_V = (regV "live") ;
--   long_A = regADeg "long" ;
--   lose_V2 = dirV2 (irregV "lose" "lost" "lost") ;
--   love_N = regN "love" ;
--   love_V2 = dirV2 (regV "love") ;
--   man_N = mkN masculine (mk2N "man" "men") ;
--   married_A2 = mkA2 (regA "married") toP ;
--   meat_N = regN "meat" ;
--   milk_N = regN "milk" ;
--   moon_N = regN "moon" ;
--   mother_N2 = mkN2 (mkN feminine (mkN "mother")) (mkPrep "of") ;
--   mountain_N = regN "mountain" ;
--   music_N = regN "music" ;
--   narrow_A = regADeg "narrow" ;
--   new_A = regADeg "new" ;
--   newspaper_N = regN "newspaper" ;
--   oil_N = regN "oil" ;
--   old_A = regADeg "old" ;
--   open_V2 = dirV2 (mkV "open" "opens" "opened" "opened" "opening") ;
--   paint_V2A = mkV2A (regV "paint") ;
--   paper_N = regN "paper" ;
--   paris_PN = mkPN (mkN nonhuman (mkN "Paris")) ;
--   peace_N = regN "peace" ;
--   pen_N = regN "pen" ;
--   planet_N = regN "planet" ;
--   plastic_N = regN "plastic" ;
--   play_V2 = dirV2 (regV "play") ;
--   policeman_N = mkN masculine (mkN "policeman" "policemen") ;
--   priest_N = mkN human (regN "priest") ;
--   probable_AS = mkAS (regA "probable") ;
--   queen_N = mkN feminine (regN "queen") ;
--   radio_N = regN "radio" ;
--   rain_V0 = mkV0 (regV "rain") ;
--   read_V2 = dirV2 (irregV "read" "read" "read") ;
--   red_A = duplADeg "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 = (irregDuplV "run" "ran" "run") ;
--   say_VS = mkVS (irregV "say" "said" "said") ;
--   school_N = regN "school" ;
--   science_N = regN "science" ;
--   sea_N = regN "sea" ;
--   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 ;
--   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" ;
--   silver_N = regN "silver" ;
--   sister_N = mkN feminine (mkN "sister") ;
--   sleep_V = (irregV "sleep" "slept" "slept") ;
--   small_A = regADeg "small" ;
--   snake_N = regN "snake" ;
--   sock_N = regN "sock" ;
--   speak_V2 = dirV2 (irregV "speak" "spoke" "spoken") ;
--   star_N = regN "star" ;
--   steel_N = regN "steel" ;
--   stone_N = regN "stone" ;
--   stove_N = regN "stove" ;
--   student_N = mkN human (regN "student") ;
--   stupid_A = mkA "stupid" ;
--   sun_N = regN "sun" ;
--   switch8off_V2 = dirV2 (partV (regV "switch") "off") ;
--   switch8on_V2 = dirV2 (partV (regV "switch") "on") ;
--   table_N = regN "table" ;
--   talk_V3 = mkV3 (regV "talk") toP aboutP ;
--   teacher_N = mkN human (regN "teacher") ;
--   teach_V2 = dirV2 (irregV "teach" "taught" "taught") ;
--   television_N = regN "television" ;
--   thick_A = regADeg "thick" ;
--   thin_A = duplADeg "thin" ;
--   train_N = regN "train" ;
--   travel_V = (regDuplV "travel") ;
--   tree_N = regN "tree" ;
--  ---- trousers_N = regN "trousers" ;
--   ugly_A = mkA "ugly" ;
--   understand_V2 = dirV2 (irregV "understand" "understood" "understood") ;
--   university_N = regN "university" ;
--   village_N = regN "village" ;
--   wait_V2 = prepV2 (regV "wait") forP ;
--   walk_V = (regV "walk") ;
--   warm_A = regADeg "warm" ;
--   war_N = regN "war" ;
--   watch_V2 = dirV2 (regV "watch") ;
--   water_N = regN "water" ;
--   white_A = mkA "white" ;
--   window_N = regN "window" ;
--   wine_N = regN "wine" ;
--   win_V2 = dirV2 (irregDuplV "win" "won" "won") ;
--   woman_N = mkN feminine (mk2N "woman" "women") ;
--   wonder_VQ = mkVQ (mkV "wonder" "wondered") ;
--   wood_N = regN "wood" ;
--   write_V2 = dirV2 (irregV "write" "wrote" "written") ;
--   yellow_A = mkA "yellow" ;
--   young_A = regADeg "young" ;
--
--   do_V2 = dirV2 (mk5V "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 = prepV2 (irregDuplV "put" "put" "put") noPrep ;
--   stop_V = regDuplV "stop" ;
--   jump_V = regV "jump" ;
--
--   left_Ord = mkOrd "left" ;
--   right_Ord = mkOrd "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 = mkN 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 = mkN 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 = mkN feminine (mk2N "wife" "wives") ;
--   wind_N = regN "wind" ;
--   wing_N = regN "wing" ;
--   worm_N = regN "worm" ;
--   year_N = regN "year" ;
--   blow_V = IrregEng.blow_V ;
--   breathe_V = dirV2 (regV "breathe") ;
--   burn_V = IrregEng.burn_V ;
--   dig_V = IrregEng.dig_V ;
--   fall_V = IrregEng.fall_V ;
--   float_V = regV "float" ;
--   flow_V = regV "flow" ;
--   fly_V = IrregEng.fly_V ;
--   freeze_V = IrregEng.freeze_V ;
--   give_V3 = mkV3 give_V noPrep noPrep ;
--   laugh_V = regV "laugh" ;
--   lie_V = IrregEng.lie_V ;
--   play_V = regV "play" ;
--   sew_V = IrregEng.sew_V ;
--   sing_V = IrregEng.sing_V ;
--   sit_V = IrregEng.sit_V ;
--   smell_V = regV "smell" ;
--   spit_V = IrregEng.spit_V ;
--   stand_V = IrregEng.stand_V ;
--   swell_V = IrregEng.swell_V ;
--   swim_V = IrregEng.swim_V ;
--   think_V = IrregEng.think_V ;
--   turn_V = regV "turn" ;
--   vomit_V = mkV "vomit" "vomited" ;
--
--   bite_V2 = dirV2 IrregEng.bite_V ;
--   count_V2 = dirV2 (regV "count") ;
--   cut_V2 = dirV2 IrregEng.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" ;
--
-- -- added 4/6/2007
--     john_PN = mkPN (mkN masculine (mkN "John")) ;
--     question_N = regN "question" ;
--     ready_A = regA "ready" ;
--     reason_N = regN "reason" ;
--     today_Adv = mkAdv "today" ;
--     uncertain_A = regA "uncertain" ;
--
-- oper
--   aboutP = mkPrep "about" ;
--   atP = mkPrep "at" ;
--   forP = mkPrep "for" ;
--   fromP = mkPrep "from" ;
--   inP = mkPrep "in" ;
--   onP = mkPrep "on" ;
--   toP = mkPrep "to" ;

} ;
