concrete ConstructionFao of Construction = CatFao ** open ResFao, ParadigmsFao in {

lincat
  Timeunit, Hour, Weekday, Month, Monthday, Year, Language = {s : Str} ;

lin
  hungry_VP = beVP "svangur" ;
  thirsty_VP = beVP "tystur" ;
  tired_VP = beVP "troyttur" ;
  scared_VP = beVP "bangin" ;
  ill_VP = beVP "sjúkur" ;
  ready_VP = beVP "klárur" ;
  has_age_VP card = beVP (cardStr card ++ "ára gamal") ;
  have_name_Cl np name = {
    Converb = np.s ! Nom ++ "eitur" ++ name.s ! Nom ;
    Indicative = \\t,pol => np.s ! Nom ++ "eitur" ++ negStr pol ++ name.s ! Nom ;
    Nonfinite = np.s ! Nom ++ "eita" ++ name.s ! Nom ;
    Participle = \\_ => np.s ! Nom ++ "itið" ++ name.s ! Nom
  } ;
  married_Cl np spouse = {
    Converb = np.s ! Nom ++ "er giftur við" ++ spouse.s ! Dat ;
    Indicative = \\t,pol => np.s ! Nom ++ copula ! t ! persNum np.n np.p ++ negStr pol ++ "giftur við" ++ spouse.s ! Dat ;
    Nonfinite = np.s ! Nom ++ "vera giftur við" ++ spouse.s ! Dat ;
    Participle = \\_ => np.s ! Nom ++ "verið giftur við" ++ spouse.s ! Dat
  } ;
  what_name_QCl np = {
    s = \\t,pol => "hvat" ++ "eitur" ++ np.s ! Nom
  } ;
  how_old_QCl np = {
    s = \\t,pol => "hvussu gamal" ++ copula ! t ! persNum np.n np.p ++ negStr pol ++ np.s ! Nom
  } ;
  how_far_QCl np = {
    s = \\t,pol => "hvussu langt burtur" ++ copula ! t ! persNum np.n np.p ++ negStr pol ++ np.s ! Nom
  } ;
  weather_adjCl ap = {
    Converb = "tað er" ++ ap.s ! Neuter ! Sg ! Nom ;
    Indicative = \\t,pol => "tað" ++ copula ! t ! PSg P3 ++ negStr pol ++ ap.s ! Neuter ! Sg ! Nom ;
    Nonfinite = "vera" ++ ap.s ! Neuter ! Sg ! Nom ;
    Participle = \\_ => "verið" ++ ap.s ! Neuter ! Sg ! Nom
  } ;
  is_right_VP = beVP "rættur" ;
  is_wrong_VP = beVP "skeivur" ;
  n_units_AP card cn a = {
    s = \\g,n,c => card.s ! cn.g ! Nom ++ cn.s ! Indef ! Pl ! Nom ++ a.s ! g ! n ! c
  } ;
  n_units_of_NP card cn np = mkNP (card.s ! cn.g ! Nom ++ cn.s ! Indef ! Pl ! Nom ++ "av" ++ np.s ! Dat) np.g np.n np.p ;
  n_unit_CN card unit cn = mkCN (card.s ! unit.g ! Nom ++ unit.s ! Indef ! Sg ! Nom ++ cn.s ! Indef ! Sg ! Nom) cn.g ;
  bottle_of_CN np = mkCN ("fløska av" ++ np.s ! Dat) Fem ;
  cup_of_CN np = mkCN ("koppur av" ++ np.s ! Dat) Masc ;
  glass_of_CN np = mkCN ("glas av" ++ np.s ! Dat) Neuter ;
  few_X_short_of_Y np x y = {s = np.s ! Nom ++ "vantar nakrar" ++ x.s ! Indef ! Pl ! Acc ++ "í" ++ y.s ! Def ! Sg ! Acc} ;

  timeunitAdv card unit = {s = "í" ++ cardStr card ++ unit.s} ;
  timeunitRange c1 c2 unit = {s = "í" ++ cardStr c1 ++ "til" ++ cardStr c2 ++ unit.s} ;
  oneHour = {s = "eitt"} ;
  twoHour = {s = "tvey"} ;
  threeHour = {s = "trý"} ;
  fourHour = {s = "fýra"} ;
  fiveHour = {s = "fimm"} ;
  sixHour = {s = "seks"} ;
  sevenHour = {s = "sjey"} ;
  eightHour = {s = "átta"} ;
  nineHour = {s = "níggju"} ;
  tenHour = {s = "tíggju"} ;
  elevenHour = {s = "ellivu"} ;
  twelveHour = {s = "tólv"} ;
  thirteenHour = {s = "trettan"} ;
  fourteenHour = {s = "fjúrtan"} ;
  fifteenHour = {s = "fimtan"} ;
  sixteenHour = {s = "sekstan"} ;
  seventeenHour = {s = "seytjan"} ;
  eighteenHour = {s = "átjan"} ;
  nineteenHour = {s = "nítjan"} ;
  twentyHour = {s = "tjúgu"} ;
  twentyOneHour = {s = "tjúgueitt"} ;
  twentyTwoHour = {s = "tjúgutvey"} ;
  twentyThreeHour = {s = "tjúgutrý"} ;
  twentyFourHour = {s = "tjúgufýra"} ;
  timeHour h = {s = "klokkan" ++ h.s} ;
  timeHourMinute h m = {s = "klokkan" ++ h.s ++ cardStr m} ;
  weekdayPunctualAdv w = {s = w.s} ;
  weekdayHabitualAdv w = {s = w.s} ;
  weekdayLastAdv w = {s = "seinasta" ++ w.s} ;
  weekdayNextAdv w = {s = "næsta" ++ w.s} ;
  monthAdv m = {s = "í" ++ m.s} ;
  yearAdv y = {s = "í" ++ y.s} ;
  dayMonthAdv d m = {s = d.s ++ m.s} ;
  monthYearAdv m y = {s = m.s ++ y.s} ;
  dayMonthYearAdv d m y = {s = d.s ++ m.s ++ y.s} ;
  intYear i = {s = i.s} ;
  intMonthday i = {s = i.s} ;
  InLanguage l = {s = "á" ++ l.s} ;
  weekdayN w = mkCN w.s Masc ;
  monthN m = mkCN m.s Masc ;
  weekdayPN w = {s = w.s} ;
  monthPN m = {s = m.s} ;
  languageNP l = mkNP l.s Neuter Sg P3 ;
  languageCN l = mkCN l.s Neuter ;

  second_Timeunit = {s = "sekund"} ;
  minute_Timeunit = {s = "minutt"} ;
  hour_Timeunit = {s = "tími"} ;
  day_Timeunit = {s = "dagur"} ;
  week_Timeunit = {s = "vika"} ;
  month_Timeunit = {s = "mánaður"} ;
  year_Timeunit = {s = "ár"} ;
  monday_Weekday = {s = "mánadagur"} ;
  tuesday_Weekday = {s = "týsdagur"} ;
  wednesday_Weekday = {s = "mikudagur"} ;
  thursday_Weekday = {s = "hósdagur"} ;
  friday_Weekday = {s = "fríggjadagur"} ;
  saturday_Weekday = {s = "leygardagur"} ;
  sunday_Weekday = {s = "sunnudagur"} ;
  january_Month = {s = "januar"} ;
  february_Month = {s = "februar"} ;
  march_Month = {s = "mars"} ;
  april_Month = {s = "apríl"} ;
  may_Month = {s = "mai"} ;
  june_Month = {s = "juni"} ;
  july_Month = {s = "juli"} ;
  august_Month = {s = "august"} ;
  september_Month = {s = "september"} ;
  october_Month = {s = "oktober"} ;
  november_Month = {s = "november"} ;
  december_Month = {s = "desember"} ;

  afrikaans_Language = {s = "afrikaans"} ;
  amharic_Language = {s = "amhariskt"} ;
  arabic_Language = {s = "arabiskt"} ;
  bulgarian_Language = {s = "bulgarskt"} ;
  catalan_Language = {s = "katalanskt"} ;
  chinese_Language = {s = "kinesiskt"} ;
  danish_Language = {s = "danskt"} ;
  dutch_Language = {s = "hollendskt"} ;
  english_Language = {s = "enskt"} ;
  estonian_Language = {s = "estiskt"} ;
  finnish_Language = {s = "finskt"} ;
  french_Language = {s = "franskt"} ;
  german_Language = {s = "týskt"} ;
  greek_Language = {s = "grikskt"} ;
  hebrew_Language = {s = "hebraiskt"} ;
  hindi_Language = {s = "hindi"} ;
  japanese_Language = {s = "japanskt"} ;
  italian_Language = {s = "italskt"} ;
  latin_Language = {s = "latín"} ;
  latvian_Language = {s = "lettiskt"} ;
  maltese_Language = {s = "maltesiskt"} ;
  nepali_Language = {s = "nepalskt"} ;
  norwegian_Language = {s = "norskt"} ;
  persian_Language = {s = "persiskt"} ;
  polish_Language = {s = "pólskt"} ;
  punjabi_Language = {s = "punjabi"} ;
  romanian_Language = {s = "rumenskt"} ;
  russian_Language = {s = "russiskt"} ;
  sindhi_Language = {s = "sindhi"} ;
  spanish_Language = {s = "spanskt"} ;
  swahili_Language = {s = "swahili"} ;
  swedish_Language = {s = "svenskt"} ;
  thai_Language = {s = "tailendskt"} ;
  turkish_Language = {s = "turkiskt"} ;
  urdu_Language = {s = "urdu"} ;

oper
  beVP : Str -> VerbPhrase = \ap -> {
    Converb = copula ! Pres ! PPl ++ ap ;
    Indicative = \\t,pol,_,p => copula ! t ! p ++ negStr pol ++ ap ;
    Nonfinite = "vera" ++ ap ;
    Participle = \\_ => "verið" ++ ap
  } ;

  cardStr : Card -> Str = \card ->
    card.s ! Neuter ! Nom ;
}