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

concrete LexiconCat of Lexicon = CatCat ** open 
  (M=MorphoCat), ParadigmsCat, BeschCat in {

flags 
  optimize=values ;

oper
    regFN : Str -> N = \s -> femN (regN s) ;
    regMN : Str -> N = \s -> regN s ; 

lin
   airplane_N = regMN "avió" ;  

   answer_V2S = mkV2S (regV "respondre") dative ;
   apartment_N = regMN "pis" ;
   apple_N = regFN "poma" ;
   art_N = regMN "art" ;    
--   ask_V2Q = mkV2Q (regV "preguntar") dative ;
   baby_N = regMN "nadó" ;
   bad_A = mkADeg (regA "dolent") (regA "pitjor") ;
   bank_N = regMN "banc" ;
	beautiful_A = prefA (regADeg "bell") ;
--   become_VA = reflV (regV "convertir") ;  --- convertirse en, volverse, ponerse
   beer_N = regFN "cervesa" ;
--   beg_V2V = mkV2V (regV "rogar") accusative dative ;   -- pedir
   big_A = regADeg "gros" ;
   bike_N = regFN "bicicleta" ;
   bird_N = regMN "ocell" ;
	black_A = regADeg "negre" ; 
	blue_A = regADeg "blau" ;
   boat_N = regFN "barca" ;
   book_N = regMN "llibre" ;
   boot_N = regFN "bota" ;
   boss_N = regMN "cap" ;
   boy_N = regMN "noi" ;
   bread_N = regMN "pa" ;
   break_V2 = dirV2 (regV "trencar") ;
	broad_A = regADeg "ample" ;
   brother_N2 = deN2 (regMN "germà") ;
	brown_A = compADeg (mkA "marró" "marrona" "marrons" "marrones" "marronament") ; --- *
   butter_N = regFN "mantega" ;
   buy_V2 = dirV2 (regV "comprar") ;
   camera_N = regFN "càmara" ; -- ["máquina fotográfica"]
   cap_N = regFN "gorra" ;
   car_N = regMN "cotxe" ;
   carpet_N = regFN "catifa" ;
   cat_N = regMN "gat" ;        -- gata
   ceiling_N = regMN "sostre" ;
   chair_N = regFN "cadira" ;
   cheese_N = regMN "formatge" ;
   child_N = regMN "nen" ;      -- nena
   church_N = regFN "església" ;
   city_N =  regFN "ciutat" ;   
   clean_A = regADeg "net" ;
   clever_A = regADeg "inteligent" ;
   close_V2 = dirV2 (regV "tancar") ;
   coat_N = regMN "abric" ;
   cold_A = regADeg "fred" ;
--   come_V = verbV (venir_117 "venir") ;
    computer_N = regMN "ordinador" ;    
   country_N = regMN "país" ;       -- masc
   cousin_N = regMN "cosí" ;
   cow_N = regFN "vaca" ;
--   die_V = verbV (morir_71 "morir") ;
	dirty_A = regADeg "brut" ;
   distance_N3 = mkN3 (regFN "distància") genitive dative ;
   doctor_N = regMN "metge" ;       -- médica
   dog_N = regMN "gos" ;        -- perra
   door_N = regFN "porta" ;
--   drink_V2 = dirV2 (regV "tomar") ;     -- beber
--   easy_A2V = mkA2V (regA "fácil") dative genitive ;
   eat_V2 = dirV2 (regV "menjar") ;
   empty_A = compADeg (mkA "buit" "buida" "buits" "buides" "buidament") ;
   enemy_N = regMN "enemic" ;       -- enemiga
   factory_N = regFN "fàbrica" ;    
   father_N2 = deN2 (regMN "pare") ;
--   fear_VS = mkVS (regV "temer") ;
   find_V2 = dirV2 (regV "trobar") ;
   fish_N = regMN "peix" ;
   floor_N = regMN "terra" ;        -- piso
   forget_V2 = dirV2 (regV "oblidar") ;
   fridge_N = regFN "nevera" ;
   friend_N = regMN "amic" ;        -- amiga
   fruit_N = regFN "fruita" ;
--   fun_AV = mkAV (regA "divertido") genitive ;        -- entretenido
   garden_N = regMN "jardí" ;
   girl_N = regFN "noia" ;
   glove_N = regMN "guant" ;
   gold_N = regMN "or" ;
   good_A = mkADeg (mkA "bó" "bona" "bons" "bones" "bonament") (regA "millor") ; ---- adv?
--   go_V = (verbV (anar_4 "anar")) ;
	green_A = regADeg "verd" ;
   harbour_N = regMN "port" ;
   hate_V2 = dirV2 (regV "odiar") ;
   hat_N = regMN "barret" ;
--   have_V2 = dirV2 (verbV (tenir_108 "tenir")) ;
   hear_V2 = mkV2 (regV "escoltar") dative ; 
   hill_N = regMN "turó" ;
   hope_VS = mkVS (regV "esperar") ;
   horse_N = regMN "cavall" ;
	hot_A = regADeg "calent" ;
   house_N = regFN "casa" ;
	important_A = regADeg "important" ;
   industry_N = regFN "indústria" ;
   iron_N = regMN "ferro" ;
   king_N = regMN "rei" ;
   know_V2 = dirV2 (regV "saber") ;
   lake_N = regMN "llac" ;
   lamp_N = regFN "làmpada" ;
   learn_V2 = dirV2 (regV "aprendre") ;
   leather_N = regMN "cuiro" ;
   leave_V2 = dirV2 (regV "partir") ;
--   like_V2 = dirV2 (regV "agradar") ;
   listen_V2 = dirV2 (regV "escoltar") ;
   live_V = verbV (viure_119 "viure") ;
	long_A = regADeg "llarg" ;
--   lose_V2 = dirV2 (verbV "perdre") ;
   love_N = regMN "amor" ;
   love_V2 = dirV2 (regV "estimar") ;
   man_N = regMN "home" ;       -- masc
--   married_A2 = mkA2 (regA "casado") dative ;
   meat_N = regFN "carn" ;
   milk_N = regFN "llet" ;
   moon_N = regFN "lluna" ;
   mother_N2 = deN2 (regFN "mare") ;    -- fem
   mountain_N = regFN "muntanya" ;
   music_N = regFN "música" ;
   narrow_A = regADeg "estret" ;
   new_A = compADeg (mkA "nou" "nova" "nous" "noves" "novament") ;
   newspaper_N = regMN "diari" ;        -- periòdic  
   oil_N = regMN "oli" ;
   old_A =  regADeg "vell" ;
-- open_V2 = dirV2 (special_ppV (regV "abrir") "abierto") ;
--   paint_V2A = mkV2A (regV "pintar") accusative (mkPreposition "en") ;
   paper_N = regMN "paper" ;
   paris_PN = mkPN "Paris" masculine ;
   peace_N = regFN "pau" ;
   pen_N = regMN "llapis" ;
   planet_N = regMN "planeta" ;
   plastic_N = regMN "plàstic" ;
   play_V2 = dirV2 (regV "jugar") ;
   policeman_N = regMN "policia" ;  -- fem refers to the institution
   priest_N = regMN "capellà" ;     -- masc
   probable_AS = mkAS (regA "probable") ; 
   queen_N = regN "reina" ;
   radio_N = regFN "ràdio" ;
--   rain_V0 = mkV0 (verbV (moure_72 "ploure")) ;
--   read_V2 = dirV2 (verbV (servir_101 "llegir")) ;
   red_A = regADeg "vermell" ;
   religion_N = mkN "religió" "religions" feminine ;
   restaurant_N = regMN "restaurant" ;      
   river_N = regMN "riu" ;
   rock_N = regFN "roca" ;
   roof_N = regFN "teulada" ;
   rubber_N = regFN "goma" ;
--   run_V = regV (verbV (córrer_30 "córrer")) ;
--   say_VS = mkVS (verbV (dir_41 "dir")) ;
   school_N = regFN "escola" ;
   science_N = regFN "ciència" ;
   sea_N = regMN "mar" ;            -- masc & fem 
--   seek_V2 = dirV2 (regV (trencar_112 "buscar")) ;
--   see_V2 = dirV2 (verbV (veure_118 "veure")) ;
--   sell_V3 = dirV3 (regV (vendre_116 "vendre")) dative ;
   send_V3 = dirV3 (regV "enviar") dative ;
   sheep_N = regFN "ovella" ;   -- xai
   ship_N = regMN "vaixell" ;
   shirt_N = regFN "camisa" ;
   shoe_N = regFN "sabata" ;
   shop_N = regFN "botiga" ;
	short_A = regADeg "curt" ; --- breu
   silver_N = regFN "plata" ;
   sister_N = regFN "germana" ;
--   sleep_V = verbV (dormir_44 "dormir") ;
	small_A = prefA (regADeg "petit") ;
   snake_N = regFN "serp" ;     -- fem
   sock_N = regMN "mitjó" ;
--   speak_V2 = dirV2 (regV "parlar") ;
   star_N = regFN "estrella" ;
   steel_N = regMN "acer" ;
   stone_N = regFN "pedra" ;
   stove_N = regMN "forn" ; 
   student_N = regN "estudiant" ;   -- used both for fem & masc
   stupid_A = regADeg "estúpid" ;
   sun_N = regMN "sol" ;    
--   switch8off_V2 = dirV2 (regV (pregar_86 "apagar")) ;
--   switch8on_V2 = dirV2 (regV (atendre_8 "encendre")) ;
   table_N = regFN "taula" ; 
--   talk_V3 = mkV3 (regV "parlar") dative genitive ;
   teacher_N = regMN "mestre" ;     -- mestra
--   teach_V2 = dirV2 (regV "ensenyar") ;
   television_N = mkN "televisió" "televisions" feminine ;  -- televisor masc
   thick_A = compADeg (mkA "gruixut" "gruixuda" "gruixuts" "gruixudes" "gruixudament") ;
   thin_A = compADeg (mkA "fi" "fina" "fins" "fines" "finament") ;
   train_N = regMN "tren" ;
--   travel_V = regV (envejar_48 "viajar") ;
   tree_N = regMN "arbre" ;
  --- trousers_N = regN "pantalón" ;    -- masc
   ugly_A = compADeg (mkA "lleig" "lletja" "lletjos" "lletges" "lletjament") ;
--   understand_V2 = dirV2 (regV (atendre_8 "entendre")) ;
   university_N = regFN "universitat" ;
   village_N = regMN "poble" ;
--   wait_V2 = mkV2 (regV "esperar") dative ;
--   walk_V = regV "caminar" ;
   warm_A = regADeg "tebi" ;
   war_N = regFN "guerra" ;
   watch_V2 = dirV2 (regV "mirar") ;
   water_N = regFN "aigua" ;
   white_A = compADeg (mkA "blanc" "blanca" "blancs" "blanques" "blancament") ;
   window_N = regFN "finestra" ;
   wine_N = regMN "vi" ;
--   win_V2 = dirV2 (regV "guanyar") ;
   woman_N = regFN "dona" ;
--   wonder_VQ = mkVQ (reflV (regV "preguntar")) ;
   wood_N = regFN "fusta" ;
--   write_V2 = dirV2 (special_ppV (regV (escriure_50 "escriure")) "escrito") ;
	yellow_A = compADeg (mkA "groc" "groga" "grocs" "grogues" "grogament") ;
	young_A = compADeg (mkA "jove" "jove" "joves" "joves" "jovement") ;
--
--   do_V2 =  dirV2 (verbV (fer_56 "fer")) ;
   now_Adv = mkAdv "ara" ;
   already_Adv = mkAdv "ja" ;
   song_N = mkN "cançó" "cançons" feminine ;
    add_V3 = dirV3 (regV "sumar") dative ;
   number_N = regMN "número" ;
--   put_V2 = dirV2 (verbV "posar") ;
--   stop_V = regV "parar" ; 
--   jump_V = regV "saltar" ;
--
--  left_Ord = mkOrd (regA "izquierda") ;
--  right_Ord = mkOrd (regA "derecha") ;
--  far_Adv = mkAdv "lejos" ; ----?
    correct_A = regA "correcte" ;
   	dry_A = regA "sec" ;
   	dull_A = regA "balb" ;
  	full_A = regA "ple" ;
   	heavy_A = regA "pesat" ;
	near_A = regA "proper" ;
 	rotten_A = regA "podrit" ;
 	round_A = regA "rodó" ;
	sharp_A = regA "esmolat" ; -- punxegut
	smooth_A = regA "llis" ;
	straight_A = regA "directe" ;
   	wet_A = regA "moll" ;
	wide_A = regA "extens" ;
   animal_N = regMN "animal" ;           -- masc (sometimes fem when adj)
   ashes_N = regMN "cendra" ;
   back_N = regFN "esquena" ;
   bark_N = regFN "escorça" ;
   belly_N = regFN "panxa" ;
   blood_N = regFN "sang" ;
   bone_N = regMN "os" ;
   breast_N = regFN "sina" ;             -- pit
   cloud_N = regMN "núvol" ;
   day_N = regMN "dia" ;
   dust_N = regFN "pols" ;
   ear_N = regFN "orella" ;
   earth_N = regFN "terra" ;
   egg_N = regMN "ou" ;
   eye_N = regMN "ull" ;
   fat_N = regMN "greix" ;
   feather_N = regFN "pluma" ;
   fingernail_N = regFN "ungla" ;
   fire_N = regMN "foc" ;
   flower_N = regFN "flor" ;
   fog_N = regFN "boira" ;
   foot_N = regMN "peu" ;
   forest_N = regMN "bosc" ;
   grass_N = regFN "herba" ;             
   guts_N = regMN "budell" ;
   hair_N = regMN "cabell" ;
   hand_N = regFN "mà" ;
   head_N = regMN "cap" ;
   heart_N = regMN "cor" ;
   horn_N = regFN "banya" ;
   husband_N = regMN "marit" ;  -- espòs
   ice_N = regMN "gel" ;
   knee_N = regMN "genoll" ;
   leaf_N = regFN "fulla" ;
   leg_N = regFN "cama" ;
   liver_N = regMN "fetge" ;
   louse_N = regMN "poll" ;
   mouth_N = regFN "boca" ;
   name_N = regMN "nom" ;
   neck_N = regMN "coll" ;
   night_N = regFN "nit" ;
   nose_N = regMN "nas" ;
   person_N = regFN "persona" ;
   rain_N = regFN "pluja" ;
   road_N = regMN "carrer" ;               
   root_N = regFN "arrel" ;
   rope_N = regN "corda" ;
   salt_N = regFN "sal" ;
   sand_N = regFN "sorra" ;
   seed_N = regFN "llavor" ;
   skin_N = regFN "pell" ;        -- fem
   sky_N = regMN "cel" ;
   smoke_N = regMN "fum" ;
   snow_N = regFN "neu" ;       -- fem
   stick_N = regMN "bastó"  ;               
   tail_N = regFN "cua" ;
   tongue_N = regFN "llengua" ;
   tooth_N = regFN "dent" ;
   wife_N = regFN "esposa" ;
   wind_N = regMN "vent" ;
   wing_N = regFN "ala" ;
   worm_N = regMN "cuc" ;             
   year_N = regMN "any" ;
    bite_V2 = dirV2 (regV "mossegar") ;
    blow_V = regV "bufar" ;
    burn_V = regV "cremar" ;
    count_V2 = dirV2 (regV "comptar") ;
    cut_V2 = dirV2 (regV "tallar") ;
    dig_V = regV "cavar" ;
    fall_V = verbV (caure_18 "caure") ;
    fear_V2 = dirV2 (verbV (témer_107 "témer")) ;
    fight_V2 = dirV2 (regV "lluitar") ;
    float_V = regV "surar" ;
    flow_V = regV "circular" ;
    fly_V = regV "volar" ;
    freeze_V = regV "congelar" ;
    give_V3 = dirdirV3 (verbV (donar_43 "donar")) ;
    hit_V2 = dirV2 (regV "picar") ;
    hold_V2 = dirV2 (verbV (obtenir_78 "sostenir")) ;
    hunt_V2 = dirV2 (regV "caçar") ;
    kill_V2 = dirV2 (regV "matar") ;
    laugh_V = verbV (riure_96 "riure") ; 
--  lie_V = reflV (regV "estirar") ;
    play_V = verbV (pregar_86 "jugar") ;
    pull_V2 = dirV2 (regV "tibar") ;
    push_V2 = dirV2 (verbV (atènyer_59 "empènyer")) ;
    rub_V2 = dirV2 (verbV (pregar_86 "refregar")) ;
    scratch_V2 = dirV2 (regV "gratar") ;
    sew_V = regV "cosir" ;
    sing_V = regV "cantar" ;
--  sit_V = reflV (regV "sentar") ;
    smell_V = verbV (cantar_15 "ensumar") ;
    spit_V = verbV (escopir_49 "escopir") ;
--  split_V2 = dirV2 (regV "separar") ; -- dividir,) ;
--  squeeze_V2 = dirV2 (regV "exprimir") ;
--  stab_V2 = dirV2 (regV "apuñalar") ;
--   stand_V = verbV (estar_2 "estar") ; ---- "estar de pie" ;
    suck_V2 = dirV2 (regV "xuclar") ;
    swell_V = regV "inflar" ;
    swim_V = regV "nedar" ;
    think_V = regV "pensar" ;
    throw_V2 = dirV2 (verbV (començar_22 "llençar")) ;
    tie_V2 = dirV2 (verbV (pregar_86 "lligar")) ;
    turn_V = verbV (pregar_86 "doblegar") ;
    vomit_V = verbV (envejar_48 "vomitar") ;
    wash_V2 = dirV2 (regV "rentar") ;
    wipe_V2 = dirV2 (verbV (pregar_86 "eixugar")) ;
    breathe_V = regV "respirar" ;
--

} ;