--# -path=.:../present:../finnish:../common:../abstract:../../prelude

concrete SwadeshFin of Swadesh = CatFin
  ** open MorphoFin, LangFin, ParadigmsFin, Prelude in {

  flags optimize=values ;

  lincat
    MassN = N ;

  lin

    -- Pronouns

    i_NP = i_Pron ;
    youSg_NP = youSg_Pron ;
    he_NP = he_Pron ;
    we_NP = we_Pron ;
    youPl_NP = youPl_Pron ;
    they_NP = they_Pron ;
    whoPl_IP = whoPl_IP ;
    whoSg_IP = whoSg_IP ;
    whatPl_IP = whatPl_IP ;
    whatSg_IP = whatSg_IP ;

    -- Determiners

    this_Det = DetSg (SgQuant this_Quant) NoOrd ;
    that_Det = DetSg (SgQuant that_Quant) NoOrd ;
    all_Det = mkDet Pl {s = \\nf => 
      let
        kaiket = (nhn (sKorpi "kaikki" "kaiken" "kaikkena")).s
      in
      case nf of {
        NCase Pl Nom => "kaikki" ;
        _ => kaiket ! nf
        }
      } ;
    many_Det = many_Det ;
    some_Det = someSg_Det ;
    few_Det  = mkDet Sg (regN "harva") ;
    other_Det = mkDet Sg (regN "muu") ;

    left_Ord = mkOrd (regN "vasen") ;
    right_Ord = mkOrd (regN "oikea") ;

  oper
    mkOrd : N -> Ord ;
    mkOrd x = {s = \\n,c => x.s ! NCase n c; lock_Ord = <> } ;

  lin

    -- Adverbs

    here_Adv = here_Adv;
    there_Adv = there_Adv;
    where_IAdv = where_IAdv;
    when_IAdv = when_IAdv;
    how_IAdv = how_IAdv;
    far_Adv = mkAdv "kaukana" ;

    -- not : Adv ; -- ?

    -- Conjunctions

    and_Conj = and_Conj ;

    -- Prepositions

    at_Prep = casePrep adessive ;
    in_Prep = casePrep inessive ;
    with_Prep = postGenPrep "kanssa" ;

    -- Numerals

    one_Det = DetSg one_Quant NoOrd ;
    two_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n2))))) ;
    three_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n3))))) ;
    four_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n4))))) ;
    five_Num = NumNumeral (num (pot2as3 (pot1as2 (pot0as1 (pot0 n5))))) ;

    -- Adjectives

    bad_A = bad_A ;
    big_A = big_A ;
    black_A = black_A ;
    cold_A = cold_A ;
    correct_A = regA "oikea" ;
    dirty_A = dirty_A ;
    dry_A = mkADeg (regN "kuiva") "kuivempi" "kuivin" ;
    dull_A = mkADeg (regN "tylsä") "tylsempi" "tylsin" ;
    full_A = mkADeg (reg3N "täysi" "täyden" "täysiä") "täydempi" "täysin" ;
    good_A = good_A ;
    green_A = green_A ;
    heavy_A = regA "raskas" ;
    long_A = long_A ;
    narrow_A = narrow_A ;
    near_A = regA "läheinen" ;
    new_A = new_A ;
    old_A = old_A ;
    red_A = red_A ;
    rotten_A = regA "mätä" ;
    round_A = regA "pyöreä" ;
    sharp_A = regA "terävä" ;
    short_A = short_A ;
    small_A = small_A ;
    smooth_A = regA "sileä" ;
    straight_A = mkADeg (regN "suora") "suorempi" "suorin" ;
    thick_A = thick_A ;
    thin_A = thin_A ;
    warm_A = warm_A ;
    wet_A = mkADeg (regN "märkä") "märempi" "märin" ;
    white_A = white_A ;
    wide_A = regA "leveä" ;
    yellow_A = yellow_A ;

    -- Nouns

    animal_N = reg3N "eläin" "eläimen" "eläimiä" ;
    ashes_N = regN "tuhka" ;
    back_N = regN "selkä" ;
    bark_N = regN "kaarna" ;
    belly_N = regN "vatsa" ;
    bird_N = bird_N;
    blood_N = nMeri "veri" ;
    bone_N = regN "luu" ;
    breast_N = regN "rinta" ;
    child_N = child_N ;
    cloud_N = reg2N "pilvi" "pilviä" ;
    day_N = regN "päivä" ;
    dog_N = dog_N ;
    dust_N = regN "pöly" ;
    ear_N = regN "korva" ;
    earth_N = regN "maa" ;
    egg_N = regN "muna" ;
    eye_N = regN "silmä" ;
    fat_N = regN "rasva" ;
    father_N = regN "isä" ;
    feather_N = reg3N "höyhen" "höyhenen" "höyheniä" ;
    fingernail_N = reg3N "kynsi" "kynnen" "kynsiä" ;
    fire_N = reg2N "tuli" "tulia" ;
    fish_N = fish_N ;
    flower_N = regN "kukka" ;
    fog_N = regN "sumu" ;
    foot_N = regN "jalka" ;
    forest_N = regN "metsä" ;
    fruit_N = fruit_N ;
    grass_N = regN "ruoho" ;
    guts_N = regN "sisälmys" ; --- suoli
    hair_N = regN "hius" ;
    hand_N = reg3N "käsi" "käden" "käsiä" ;
    head_N = regN "pää" ;
    heart_N = reg3N "sydän" "sydämen" "sydämiä" ;
    horn_N = reg2N "sarvi" "sarvia" ;
    husband_N = man_N ; --- aviomies
    ice_N = regN "jää" ;
    knee_N = reg2N "polvi" "polvia" ;
    lake_N = lake_N ;
    leaf_N = reg2N "lehti" "lehtiä" ;
    leg_N = regN "jalka" ; --- sääri
    liver_N = regN "maksa" ;
    louse_N = regN "lude" ;
    man_N = man_N ;
    meat_N = meat_N ;
    moon_N = moon_N ;
    mother_N = regN "äiti" ;
    mountain_N = mountain_N ;
    mouth_N = regN "suu" ;
    name_N = reg2N "nimi" "nimiä" ;
    neck_N = regN "niska" ;
    night_N = regN "yö" ;
    nose_N = regN "nenä" ;
    person_N = regN "henkilö" ;
    rain_N = regN "sade" ;
    river_N = river_N ;
    road_N = regN "tie" ;
    root_N = reg2N "juuri" "juuria" ;
    rope_N = reg3N "köysi" "köyden" "köysiä" ;
    salt_N = regN "suola" ;
    sand_N = regN "hiekka" ;
    sea_N = sea_N ;
    seed_N = regN "siemen" ;
    skin_N = regN "nahka" ;
    sky_N = reg3N "taivas" "taivaan" "taivaita" ;
    smoke_N = regN "savu" ;
    snake_N = snake_N ;
    snow_N = sgpartN (nMeri "lumi") "lunta" ;
    star_N = star_N ;
    stick_N = regN "keppi" ;
    stone_N = stone_N ;
    sun_N = sun_N ;
    tail_N = regN "häntä" ;
    tongue_N = reg2N "kieli" "kieliä" ;
    tooth_N = regN "hammas" ;
    tree_N = tree_N ;
    water_N = water_N ;
    wife_N = regN "vaimo" ;
    wind_N = reg2N "tuuli" "tuulia" ;
    wing_N = reg2N "siipi" "siipiä" ;
    woman_N = woman_N ;
    worm_N = regN "mato" ;
    year_N = reg3N "vuosi" "vuoden" "vuosia" ;

    -- Verbs

    bite_V2 = dirV2 (regV "purra") ;
    blow_V = regV "puhaltaa" ;
    breathe_V2 = dirV2 (regV "hengittää") ;
    burn_V = regV "palaa" ;
    come_V = come_V ;
    count_V2 = dirV2 (regV "laskea") ;
    cut_V2 = dirV2 (reg2V "leikata" "leikkasi") ;
    die_V = regV "kuolla";
    dig_V = regV "kaivaa" ;
    drink_V2 = dirV2 ( drink_V2) ;
    eat_V2 = dirV2 ( eat_V2) ;
    fall_V = reg3V "pudota" "putoan" "putosi" ;
    fear_V2 = dirV2 (reg3V "pelätä" "pelkään" "pelkäsi") ;
    fight_V2 = dirV2 (regV "taistella") ;
    float_V = regV "kellua" ;
    flow_V = reg3V "virrata" "virtaan" "virtasi" ;
    fly_V = regV "lentää" ;
    freeze_V = regV "jäätyä" ;
    give_V = dirdirV3 (regV "antaa") ;
    hear_V2 = dirV2 ( hear_V2) ;
    hit_V2 = dirV2 (regV "lyödä") ;
    hold_V2 = dirV2 (regV "pitää") ;
    hunt_V2 = dirV2 (regV "metsästää") ;
    kill_V2 = dirV2 (regV "tappaa") ;
    know_V2 = dirV2 (reg2V "tuntea" "tunsin") ;
    laugh_V = reg3V "nauraa" "nauran" "nauroi" ;
    lie_V = reg3V "maata" "makaan" "makasi" ;
    live_V = live_V ;
    play_V =  play_V2 ;
    pull_V2 = dirV2 (regV "vetää") ;
    push_V2 = dirV2 (regV "työntää") ;
    rub_V2 = dirV2 (regV "hieroa") ;
    say_V = regV "sanoa" ;
    scratch_V2 = dirV2 (regV "raapia") ;
    see_V = ( see_V2) ;
    sew_V = regV "kylvää" ;
    sing_V = regV "laulaa" ;
    sit_V = regV "istua" ;
    sleep_V = sleep_V ;
    smell_V = reg2V "haistaa" "haistoi" ;
    spit_V = regV "sylkeä" ;
    split_V2 = dirV2 (reg2V "halkaista" "halkaisi") ;
    squeeze_V2 = dirV2 (regV "puristaa") ;
    stab_V2 = dirV2 (regV "pistää") ;
    stand_V = mkV "seistä" "seisoo" "seison" "seisovat" "seiskää" "seistään"
      "seisoi" "seisoin" "seisoisi" "seissyt" "seisty" "seistyn" ; --- *seisoivät
    suck_V2 = dirV2 (regV "imeä") ;
    swell_V = mkV "turvota" "turpoaa" "turpoan" "turpoavat" "turvotkaa" "turvotaan"
      "turposi" "turposin" "turpoaisi" "turvonnut" "turvottu" "turvotun" ;
    swim_V = reg3V "uida" "uin" "ui" ;
    think_V = reg3V "ajatella" "ajattelen" "ajatteli" ;
    throw_V2 = dirV2 (regV "heittää") ;
    tie_V2 = dirV2 (regV "sitoa") ;
    turn_V = regV "kääntyä" ;
    vomit_V = regV "oksentaa" ;
    walk_V = walk_V ;
    wash_V2 = dirV2 (regV "pestä") ;
    wipe_V2 = dirV2 (regV "pyyhkiä") ;

oper 
  regA = regADeg ; ----


}