--# -path=.:prelude

concrete LexiconBul of Lexicon = CatBul ** 
  open ParadigmsBul, ResBul, Prelude in {
  flags coding=cp1251 ;


flags 
  optimize=values ;

lin
  airplane_N = mkN007 "самолет" ;
  answer_V2S = mkV2S (actionV (mkV187 "отговарям") (mkV173 "отговоря")) naP ;
  apartment_N = mkN007 "апартамент" ;
  apple_N = mkN041 "ябълка" ;
  art_N = mkN054 "изкуство" ;
  ask_V2Q = mkV2Q (stateV (mkV186 "питам")) noPrep ;
  baby_N = mkN065 "бебе" ;
  bad_A = mkA076 "лош" ;
  bank_N = mkN041 "банка" ;
  beautiful_A = mkA076 "красив" ;
  become_VA = mkVA (actionV (mkV186 "ставам") (mkV152 "стана")) ;
  beer_N = mkN041 "бира" ;
  beg_V2V = mkV2V (stateV (mkV173 "моля")) noPrep zaP ;
  big_A = mkA081 "голям" ;
  bike_N = mkN061 "колело" ;
  bird_N = mkN041 "птица" ;
  black_A = mkA079 "черен" ;
  blue_A = mkA086 "син" ;
  boat_N = mkN007 "кораб" ;
  book_N = mkN041 "книга" ;
  boot_N = mkN041 "обувка" ;
  boss_N = mkN001 "шеф" ;
  boy_N = mkN065 "момче" ;
  bread_N = mkN001 "хляб" ;
  break_V2 = dirV2 (actionV (mkV173 "чупя") (mkV173 "счупя")) ;
  broad_A = mkA079 "обширен" ;
  brother_N2 = prepN2 (mkN025 "брат") naP ;
  brown_A = mkA076 "кафяв" ;
  butter_N = mkN054 "масло" ;
  buy_V2 = dirV2 (actionV (mkV186 "купувам") (mkV173 "купя")) ;
  camera_N = mkN041 "камера" ;
  cap_N = mkN041 "шапка" ;
  car_N = mkN041 "кола" ;
  carpet_N = mkN007 "килим" ;
  cat_N = mkN041 "котка" ;
  ceiling_N = mkN007 "таван" ;
  chair_N = mkN001 "стол" ;
  cheese_N = mkN066 "сирене" ;
  child_N = mkN067 "дете" ;
  church_N = mkN041 "църква" ;
  city_N = mkN001 "град" ;
  clean_A = mkA076 "чист" ;
  clever_A = mkA079 "умен" ;
  close_V2 = dirV2 (actionV (mkV187 "затварям") (mkV173 "затворя")) ;
  coat_N = mkN054 "палто" ;
  cold_A = mkA076 "студен" ;
  come_V = actionV (mkV186 "идвам") (table {                                           -- special case "дойди", "дойдете" are archaic
                                       VImperative Sg => "ела";
                                       VImperative Pl => "елате";
                                       vform          => mkV146a "дойда" ! vform}) ;
  computer_N = mkN009 "компютър" ;
  country_N = mkN041 "държава" ;
  cousin_N = mkN007a "братовчед" ;
  cow_N = mkN041 "крава" ;
  die_V = actionV (mkV186 "умирам") (mkV150a "умра") ;
  dirty_A = mkA079 "мръсен" ;
  distance_N3 = prepN3 (mkN072 "разстояние") otP doP ;
  doctor_N = mkN007a "доктор" ;
  dog_N = mkN065 "куче" ;
  door_N = mkN041 "врата" ;
  drink_V2 = dirV2 (stateV (mkV163 "пия")) ;
  easy_A2V = mkA2V (mkA079 "лесен") zaP ;
  eat_V2 = dirV2 (stateV (mkV169 "ям")) ;
  empty_A = mkA079 "празен" ;
  enemy_N = mkN001 "враг" ;
  factory_N = mkN041 "фабрика" ;
  father_N2 = prepN2 (mkN038 "баща") naP ;
  fear_VS = mkVS (stateV (mkV186 "страхувам")) ;
  find_V2 = dirV2 (actionV (mkV186 "намирам") (mkV173 "намеря")) ;
  fish_N = mkN041 "риба" ;
  floor_N = mkN007 "етаж" ;
  fridge_N = mkN007 "фризер" ;
  friend_N = mkN031a "приятел" ;
  fruit_N = mkN001 "плод" ;
  fun_AV = mkAV (mkA079 "забавен") ;
  forget_V2 = dirV2 (actionV (mkV187 "забравям") (mkV173 "забравя")) ;
  garden_N = mkN041 "градина" ;
  girl_N = mkN065 "момиче" ;
  glove_N = mkN041 "ръкавица" ;
  gold_N = mkN054 "злато" ;
  good_A = adjAdv (mkA080 "добър") "добре" ;
  go_V = actionV (mkV186 "отивам") (mkV146 "отида") ;
  green_A = mkA076 "зелен" ;
  harbour_N = mkN066 "пристанище" ;
  hate_V2 = dirV2 (stateV (mkV173 "мразя")) ;
  hat_N = mkN041 "шапка" ;
  have_V2 = dirV2 (stateV (mkV186 "имам")) ;
  hear_V2 = dirV2 (actionV (mkV186 "чувам") (mkV163 "чуя")) ;
  hill_N = mkN001 "хълм" ;
  hope_VS = mkVS (medialV (stateV (mkV186 "надявам")) Acc) ;
  horse_N = mkN035 "кон" ;
  hot_A = mkA076 "горещ" ;
  house_N = mkN041 "къща" ;
  important_A = mkA079 "важен" ;
  industry_N = mkN047 "индустрия" ;
  iron_N = mkN057 "желязо" ;
  king_N = mkN035a "цар" ;
  know_V2 = dirV2 {
              s      = \\_,vform => case vform of {
                                      VPassive aform => (mkA079 "известен").s ! aform ;
                                      _              => mkV162 "зная" ! vform
                                    } ;
              vtype  = VNormal ;
              lock_V = <>
            } ;
  lake_N = mkN054 "езеро" ;
  lamp_N = mkN041 "лампа" ;
  learn_V2 = dirV2 (actionV (mkV176 "уча") (mkV176 "науча")) ;
  leather_N = mkN041 "кожа" ;
  leave_V2 = dirV2 (actionV (mkV187 "оставям") (mkV173 "оставя")) ;
  like_V2 = dirV2 (actionV (mkV186 "харесвам") (mkV186 "харесам")) ;
  listen_V2 = dirV2 (stateV (mkV186 "слушам")) ;
  live_V = stateV (mkV160 "живея") ;
  long_A = mkA080 "дълъг" ;
  lose_V2 = dirV2 (actionV (mkV173 "губя") (mkV173 "загубя")) ;
  love_N = mkN049 "любов" ;
  love_V2 = dirV2 (stateV (mkV186 "обичам")) ;
  man_N = mkN024 "мъж" ;
  married_A2 = mkA2 (mkA076 "женен") zaP ;
  meat_N = mkN054 "месо" ;
  milk_N = mkN057 "мляко" ;
  moon_N = mkN041 "луна" ;
  mother_N2 = prepN2 (mkN041a "майка") naP ;
  mountain_N = mkN041 "планина" ;
  music_N = mkN041 "музика" ;
  narrow_A = mkA084 "тесен" ;
  new_A = mkA076 "нов" ;
  newspaper_N = mkN014 "вестник" ;
  oil_N = mkN065 "олио" ;
  old_A = mkA076 "стар" ;
  open_V2 = dirV2 (actionV (mkV187 "отварям") (mkV173 "отворя")) ;
  paint_V2A = mkV2A (actionV (mkV186 "рисувам") (mkV186 "нарисувам")) noPrep ;
  paper_N = mkN047 "хартия" ;
  paris_PN = mkPN "Париж" Masc ;
  peace_N = mkN040a "мир" ;
  pen_N = mkN041 "писалка" ;
  planet_N = mkN041 "планета" ;
  plastic_N = mkN041 "пластмаса" ;
  play_V2 = dirV2 (stateV (mkV161 "играя")) ;
  policeman_N = mkN032a "полицай" ;
  priest_N = mkN014 "свещеник" ;
  probable_AS = mkAS (mkA079 "вероятен") ;
  queen_N = mkN041 "кралица" ;
  radio_N = mkN054 "радио" ;
  rain_V0 = mkV0 (stateV (mkV174 "вали")) ;
  read_V2 = dirV2 (stateV (mkV145 "чета")) ;
  red_A = mkA076 "червен" ;
  religion_N = mkN047 "религия" ;
  restaurant_N = mkN007 "ресторант" ;
  river_N = mkN041 "река" ;
  rock_N = mkN041 "скала" ;
  roof_N = mkN007 "покрив" ;
  rubber_N = mkN041 "гума" ;
  run_V = stateV (mkV186 "бягам") ;
  say_VS = mkVS (actionV (mkV186 "казвам") (mkV156 "кажа")) ;
  school_N = mkN066 "училище" ;
  science_N = mkN041 "наука" ;
  sea_N = mkN065 "море" ;
  seek_V2 = dirV2 (stateV (mkV173 "търся")) ;
  see_V2 = dirV2 (actionV (mkV186 "виждам") (mkV181 "видя")) ;
  sell_V3 = dirV3 (stateV (mkV186 "продавам")) naP ;
  send_V3 = dirV3 (actionV (mkV186 "пращам") (mkV173 "пратя")) doP ;
  sheep_N = mkN044 "овца" ;
  ship_N = mkN007 "кораб" ;
  shirt_N = mkN041 "риза" ;
  shoe_N = mkN041 "обувка" ;
  shop_N = mkN007 "магазин" ;
  short_A = mkA076 "къс" ;
  silver_N = mkN054 "сребро" ;
  sister_N = mkN041a "сестра" ;
  sleep_V = stateV (mkV182 "спя") ;
  small_A = mkA080 "малък" ;
  snake_N = mkN047 "змия" ;
  sock_N = mkN007 "чорап" ;
  speak_V2 = dirV2 (stateV (mkV173 "говоря")) ;
  star_N = mkN041 "звезда" ;
  steel_N = mkN041 "стомана" ;
  stone_N = mkN017 "камък" ;
  stove_N = mkN041 "печка" ;
  student_N = mkN007a "студент" ;
  stupid_A = mkA076 "глупав" ;
  sun_N = mkN066 "слънце" ;
  switch8off_V2 = dirV2 (actionV (mkV186 "изключвам") (mkV176 "изключа")) ;
  switch8on_V2 = dirV2 (actionV (mkV186 "включвам") (mkV176 "включа")) ;
  table_N = mkN041 "маса" ;
  talk_V3 = mkV3 (stateV (mkV173 "говоря")) naP zaP ;
  teacher_N = mkN031a "учител" ;
  teach_V2 = dirV2 (actionV (mkV186 "преподавам") (mkV168 "преподам")) ;
  television_N = mkN047 "телевизия" ;
  thick_A = mkA076 "дебел" ;
  thin_A = mkA080 "тънък" ;
  train_N = mkN001 "влак" ;
  travel_V = stateV (mkV186 "пътувам") ;
  tree_N = mkN061 "дърво" ;
  ugly_A = mkA076 "глупав" ;
  understand_V2 = dirV2 (actionV (mkV186 "разбирам") (mkV170 "разбера")) ;
  university_N = mkN007 "университет" ;
  village_N = mkN054 "село" ;
  wait_V2 = prepV2 (stateV (mkV186 "чакам")) zaP ;
  walk_V = stateV (mkV173 "ходя") ;
  warm_A = mkA080 "топъл" ;
  war_N = mkN041 "война" ;
  watch_V2 = dirV2 (stateV (mkV186 "гледам")) ;
  water_N = mkN041 "вода" ;
  white_A = mkA081 "бял" ;
  window_N = mkN008 "прозорец" ;
  wine_N = mkN054 "вино" ;
  win_V2 = dirV2 (actionV (mkV186 "побеждавам") (mkV174 "победя")) ;
  woman_N = mkN041a "жена" ;
  wonder_VQ = mkVQ (medialV (actionV (mkV186 "учудвам") (mkV173 "чудя")) Acc) ;
  wood_N = mkN041 "дървесина" ;
  write_V2 = dirV2 (stateV (mkV159 "пиша")) ;
  yellow_A = mkA076 "жълт" ;
  young_A = mkA076 "млад" ;
  do_V2 = dirV2 (actionV (mkV173 "правя") (mkV173 "направя")) ;
  now_Adv = mkAdv "сега" ;
  already_Adv = mkAdv "вече" ;
  song_N = mkN050 "песен" ;
  add_V3 = dirV3 (actionV (mkV186 "събирам") (mkV170 "събера")) sP ;
  number_N = mkN054 "число" ;
  put_V2 = prepV2 (actionV (mkV186 "слагам") (mkV176 "сложа")) noPrep ;
  stop_V = actionV (mkV186 "спирам") (mkV150 "спра") ;
  jump_V = actionV (mkV186 "скачам") (mkV176 "скоча") ;
  left_Ord = mkA081 "ляв" ** {nonEmpty=True} ;
  right_Ord = mkA084 "десен" ** {nonEmpty=True} ;
  far_Adv = mkAdv "далече" ;
  correct_A = mkA079 "правилен" ;
  dry_A = mkA076 "сух" ;
  dull_A = mkA076 "тъп" ;
  full_A = mkA079 "пълен" ;
  heavy_A = mkA080 "тежък" ;
  near_A = mkA080 "близък" ;
  rotten_A = mkA076 "прогнил" ;
  round_A = mkA080 "кръгъл" ;
  sharp_A = mkA080 "остър" ;
  smooth_A = mkA080 "гладък" ;
  straight_A = mkA081 "пряк" ;
  wet_A = mkA080 "мокър" ; ----
  wide_A = mkA076 "широк" ;
  animal_N = mkN062 "животно" ;
  ashes_N = mkN049 "пепeл" ;
  back_N = mkN003 "гръб" ;
  bark_N = mkN028 "лай" ;
  belly_N = mkN007 "корем" ;
  blood_N = mkN053 "кръв" ;
  bone_N = mkN049 "кост" ;
  breast_N = mkN041 "гърда" ;
  cloud_N = mkN014 "облак" ;
  day_N = mkN033 "ден" ;
  dust_N = mkN001 "прах" ;
  ear_N = mkN064 "ухо" ;
  earth_N = mkN047 "земя" ;
  egg_N = mkN066 "яйце" ;
  eye_N = mkN063 "око" ;
  fat_N = mkN041 "мазнина" ;
  feather_N = mkN038 "баща" ;
  fingernail_N = mkN034 "нокът" ;
  fire_N = mkN030 "огън" ;
  flower_N = mkN068 "цвете" ;
  fog_N = mkN041 "мъгла" ;
  foot_N = mkN041 "стъпка" ;
  forest_N = mkN041 "гора" ;
  grass_N = mkN041 "трева" ;
  guts_N = mkN054 "черво" ;
  hair_N = mkN041 "коса" ;
  hand_N = mkN045 "ръка" ;
  head_N = mkN041 "глава" ;
  heart_N = mkN066 "сърце" ;
  horn_N = mkN001 "рог" ;
  husband_N = mkN015 "съпруг" ;  -- personal
  ice_N = mkN001 "лед" ;
  knee_N = mkN058 "коляно" ;
  leaf_N = mkN054 "листо" ;
  leg_N = mkN022 "крак" ;
  liver_N = mkN001 "дроб" ;
  louse_N = mkN041 "въшка" ;
  mouth_N = mkN042 "уста" ;
  name_N = mkN069 "име" ;
  neck_N = mkN003 "гръб" ;
  night_N = mkN049 "нощ" ;
  nose_N = mkN001 "нос" ;
  person_N = mkN014 "човек" ;
  rain_N = mkN001 "дъжд" ;
  road_N = mkN037 "път" ;
  root_N = mkN007 "корен" ;
  rope_N = mkN065 "въже" ;
  salt_N = mkN049 "сол" ;
  sand_N = mkN014 "пясък" ;
  seed_N = mkN069 "семе" ;
  skin_N = mkN041 "кожа" ;
  sky_N = mkN070 "небе" ;
  smoke_N = mkN014 "пушек" ;
  snow_N = mkN002 "сняг" ;
  stick_N = mkN041 "пръчка" ;
  tail_N = mkN041 "опашка" ;
  tongue_N = mkN014 "език" ;
  tooth_N = mkN007 "зъб" ;
  wife_N = mkN041 "съпруга" ;
  wind_N = mkN004 "вятър" ;
  wing_N = mkN056 "крило" ;
  worm_N = mkN032 "червей" ;
  year_N = mkN041 "година" ;
  blow_V = stateV (mkV186 "духам") ;
  breathe_V = dirV2 (stateV (mkV186 "дишам")) ;
  burn_V = actionV (mkV187 "изгарям") (mkV177 "изгоря") ;
  dig_V = stateV (mkV161 "копая") ;
  fall_V = actionV (mkV186 "падам") (mkV152 "падна") ;
  float_V = stateV (mkV186 "плавам") ;
  flow_V = stateV (mkV148 "тека") ;
  fly_V = stateV (mkV177 "летя") ;
  freeze_V = stateV (mkV186 "замръзвам") ;
  give_V3 = dirV3 (actionV (mkV186 "давам") (mkV186 "дам")) naP ;
  laugh_V = medialV (stateV (mkV160 "смея")) Acc ;
  lie_V = stateV (mkV178 "лежа") ;
  play_V = stateV (mkV161 "играя") ;
  sew_V = stateV (mkV163 "шия") ;
  sing_V = stateV (mkV164 "пея") ;
  sit_V = stateV (mkV177 "седя") ;
  smell_V = stateV (mkV159 "мириша") ;
  spit_V = stateV (mkV163 "плюя") ;
  stand_V = stateV (mkV180 "стоя") ;
  swell_V = actionV (mkV186 "надувам") (mkV163 "надуя") ;
  swim_V = stateV (mkV186 "плувам") ;
  think_V = stateV (mkV173 "мисля") ;
  turn_V = actionV (mkV186 "обръщам") (mkV152 "обърна") ;
  vomit_V = actionV (mkV186 "повръщам") (mkV152 "повърна") ;

  bite_V2 = dirV2 (stateV (mkV154 "хапя")) ;
  count_V2 = dirV2 (stateV (mkV175 "броя")) ;
  cut_V2 = dirV2 (stateV (mkV157 "режа"))  ;
  fear_V2 = dirV2 (medialV (stateV (mkV186 "страхувам")) Acc) ;
  fight_V2 = dirV2 (medialV (stateV (mkV173 "боря")) Acc) ;
  hit_V2 = dirV2 (actionV (mkV187 "удрям") (mkV173 "ударя")) ;
  hold_V2 = dirV2 (stateV (mkV179 "държа")) ;
  hunt_V2 = dirV2 (stateV (mkV174 "ловя")) ;
  kill_V2 = dirV2 (actionV (mkV186 "убивам") (mkV163 "убия")) ;
  pull_V2 = dirV2 (stateV (mkV186 "дърпам")) ;
  push_V2 = dirV2 (stateV (mkV186 "бутам")) ;
  rub_V2 = dirV2 (stateV (mkV163 "трия")) ;
  scratch_V2 = dirV2 (actionV (mkV186 "драскам") (mkV152 "драсна")) ;
  split_V2 = dirV2 (actionV (mkV187 "разделям") (mkV174 "разделя")) ;
  squeeze_V2 = dirV2 (actionV (mkV186 "стискам") (mkV152 "стисна")) ;
  stab_V2 = dirV2 (actionV (mkV186 "промушвам") (mkV176 "промуша")) ;
  suck_V2 = dirV2 (stateV (mkV155 "суча")) ;
  throw_V2 = dirV2 (actionV (mkV187 "хвърлям") (mkV173 "хвърля")) ;
  tie_V2 = dirV2 (actionV (mkV186 "връзвам") (mkV156 "вържа")) ;
  wash_V2 = dirV2 (stateV (mkV163 "мия")) ;
  wipe_V2 = dirV2 (stateV (mkV159 "бърша")) ;

  grammar_N = mkN041 "граматика" ;
  language_N = mkN014 "език" ;
  rule_N = mkN054 "правило" ;
  
  john_PN = mkPN "Джон" Masc ;
  question_N = mkN007 "въпрос" ;
  ready_A = mkA076 "готов" ;
  reason_N = mkN041 "причина" ;
  today_Adv = mkAdv "днес" ;
  uncertain_A = mkA079 "неясен" ;
  
oper
  zaP = mkPrep "за" Acc ;
  naP = mkPrep [] Dat ;
  otP = mkPrep "от" Acc ;
  doP = mkPrep "до" Acc ;
  sP  = mkPrep (pre { "с" ; 
                      "със" / strs {"с" ; "з" ; "С" ; "З"}
                    })  Acc ;
} ;
