--# -path=.:prelude

concrete LexiconBul of Lexicon = CatBul ** 
  open ParadigmsBul, Prelude in {

flags 
  optimize=values ;

lin
  bad_A = mkA76 "лош" ;
  beautiful_A = mkA76 "красив" ;
  big_A = mkA81 "голям" ;
  black_A = mkA79 "черен" ;
  blue_A = mkA86 "син" ;
  break_V2 = dirV2 (mkV173 "чупя") ;
  brown_A = mkA76 "кафяв" ;
  buy_V2 = dirV2 (mkV173 "купя") ;
  clean_A = mkA76 "чист" ;
  clever_A = mkA79 "умен" ;
  close_V2 = dirV2 (mkV173 "затворя") ;
  cold_A = mkA76 "студен" ;
  come_V = mkV146a "дойда" ;
  die_V = mkV150a "умра" ;
  dirty_A = mkA79 "мръсен" ;
  drink_V2 = dirV2 (mkV163 "пия") ;
  eat_V2 = dirV2 (mkV169 "ям") ;
  empty_A = mkA79 "празен" ;
  find_V2 = dirV2 (mkV173 "намеря") ;
  forget_V2 = dirV2 (mkV173 "забравя") ;
  good_A = mkA80 "добър" ;
  go_V = mkV186 "отивам" ;
  green_A = mkA76 "зелен" ;
  hate_V2 = dirV2 (mkV173 "мразя") ;
  have_V2 = dirV2 (mkV186 "имам") ;
  hear_V2 = dirV2 (mkV186 "чувам") ;
  hot_A = mkA76 "горещ" ;
  important_A = mkA79 "важен" ;
  know_V2 = dirV2 (mkV162 "зная") ;
  learn_V2 = dirV2 (mkV176 "уча") ;
  leave_V2 = dirV2 (mkV173 "оставя") ;
  like_V2 = dirV2 (mkV186 "харесвам") ;
  listen_V2 = dirV2 (mkV186 "слушам") ;
  live_V = mkV160 "живея" ;
  long_A = mkA80 "дълъг" ;
  lose_V2 = dirV2 (mkV173 "губя") ;
  love_V2 = dirV2 (mkV186 "обичам") ;
  married_A2 = mkA2 (mkA76 "женен") zaP ;
  narrow_A = mkA84 "тесен" ;
  new_A = mkA76 "нов" ;
  old_A = mkA76 "стар" ;
  open_V2 = dirV2 (mkV187 "отварям") ;
  paris_PN = mkPN "Париж" Masc ;
  play_V2 = dirV2 (mkV161 "играя") ;
  read_V2 = dirV2 (mkV145 "чета") ;
  red_A = mkA76 "червен" ;
  run_V = (mkV186 "бягам") ;
  seek_V2 = dirV2 (mkV173 "търся") ;
  see_V2 = dirV2 (mkV186 "виждам") ;
  sell_V3 = dirV3 (mkV186 "продавам") naP ;
  send_V3 = dirV3 (mkV186 "пращам") doP ;
  short_A = mkA76 "къс" ;
  sleep_V = mkV182 "спя" ;
  small_A = mkA80 "малък" ;
  speak_V2 = dirV2 (mkV173 "говоря") ;
  stupid_A = mkA76 "глупав" ;
  switch8off_V2 = dirV2 (mkV186 "изключвам") ;
  switch8on_V2 = dirV2 (mkV186 "включвам") ;
  teach_V2 = dirV2 (mkV186 "преподавам") ;
  thick_A = mkA76 "дебел" ;
  thin_A = mkA80 "тънък" ;
  travel_V = mkV186 "пътувам" ;
  ugly_A = mkA76 "глупав" ;
  understand_V2 = dirV2 (mkV186 "разбирам") ;
  wait_V2 = prepV2 (mkV186 "чакам") zaP ;
  walk_V = mkV173 "ходя" ;
  warm_A = mkA80 "топъл" ;
  watch_V2 = dirV2 (mkV186 "гледам") ;
  white_A = mkA81 "бял" ;
  win_V2 = dirV2 (mkV174 "победя") ;

  write_V2 = dirV2 (mkV159 "пиша") ;
  yellow_A = mkA76 "жълт" ;
  young_A = mkA76 "млад" ;
--  do_V2 = dirV2 (mk5V "do" "does" "did" "done" "doing") ;
  now_Adv = mkAdv "сега" ;
  already_Adv = mkAdv "вече" ;
--  put_V2 = prepV2 (irregDuplV "put" "put" "put") noPrep ;
  stop_V = mkV150 "спра" ;
  jump_V = mkV176 "скоча" ;
  far_Adv = mkAdv "далече" ;
  correct_A = mkA79 "правилен" ;
  dry_A = mkA76 "сух" ;
--  dull_A = regA "dull" ;
  full_A = mkA79 "пълен" ;
  heavy_A = mkA80 "тежък" ;
  near_A = mkA80 "близък" ;
--  rotten_A = (regA "rotten") ;
  round_A = mkA80 "кръгъл" ;
  sharp_A = mkA80 "остър" ;
--  smooth_A = regA "smooth" ;
--  straight_A = regA "straight" ;
  wet_A = mkA80 "мокър" ; ----
  wide_A = mkA76 "широк" ;
--  blow_V = IrregEng.blow_V ;
--  breathe_V = dirV2 (regV "breathe") ;
  burn_V = mkV187 "изгарям" ;
--  dig_V = IrregEng.dig_V ;
--  fall_V = IrregEng.fall_V ;
  float_V = mkV186 "плавам" ;
  flow_V = mkV148 "тека" ;
  fly_V = mkV177 "летя" ;
  freeze_V = mkV186 "замръзвам" ;
  laugh_V = mkV160 "смея" ;
  lie_V = mkV178 "лежа" ;
  play_V = mkV161 "играя" ;
--  sew_V = IrregEng.sew_V ;
  sing_V = mkV164 "пея" ;
--  sit_V = IrregEng.sit_V ;
  smell_V = mkV159 "мириша" ;
  spit_V = mkV163 "плюя" ;
--  stand_V = IrregEng.stand_V ;
--  swell_V = IrregEng.swell_V ;
  swim_V = mkV186 "плувам" ;
  think_V = mkV173 "мисля" ;
  turn_V = mkV186 "обръщам" ;
--  vomit_V = regV "vomit" ;

--  bite_V2 = dirV2 IrregEng.bite_V ;
  count_V2 = dirV2 (mkV175 "броя") ;
  cut_V2 = dirV2 (mkV157 "режа")  ;
  fear_V2 = dirV2 (mkV186 "страхувам") ;
  fight_V2 = dirV2 (mkV173 "боря") ;
--  hit_V2 = dirV2 hit_V ;
--  hold_V2 = dirV2 hold_V ;
  hunt_V2 = dirV2 (mkV174 "ловя") ;
  kill_V2 = dirV2 (mkV163 "убия") ;
--  pull_V2 = dirV2 (regV "pull") ;
--  push_V2 = dirV2 (regV "push") ;
--  rub_V2 = dirV2 (regDuplV "rub") ;
--  scratch_V2 = dirV2 (regV "scratch") ;
  split_V2 = dirV2 (mkV174 "разделя") ;
--  squeeze_V2 = dirV2 (regV "squeeze") ;
--  stab_V2 = dirV2 (regDuplV "stab") ;
--  suck_V2 = dirV2 (regV "suck") ;
  throw_V2 = dirV2 (mkV173 "хвърля") ;
--  tie_V2 = dirV2 (regV "tie") ;
  wash_V2 = dirV2 (mkV163 "мия") ;
--  wipe_V2 = dirV2 (regV "wipe") ;

  john_PN = mkPN "Джон" Masc ;
  ready_A = mkA76 "готов" ;
  today_Adv = mkAdv "днес" ;
  uncertain_A = mkA79 "неясен" ;
  
oper
  zaP = mkPrep "за" ;
  naP = mkPrep "на" ;
  doP = mkPrep "до" ;
} ;