(* Smaaord * Copyright 1996 Peter Sestoft.  
   Må kopieres og modificeres jvfr. GNU General Public License *)

open Basis

fun artikel ((ubs, ent), itk) = Str "et"
  | artikel ((bes, ent), itk) = Str "det"
  | artikel ((ubs, ent), fk ) = Str "en"
  | artikel ((bes, ent), fk ) = Str "den"
  | artikel ((ubs, flt), _  ) = Tom
  | artikel ((bes, flt), _  ) = Str "de"

val adverbier = 
    #["ekstremt", "ofte", "helt", "klart",
      "meget", "muligvis", "normalt",
      "tilstrækkeligt", "typisk", "udpræget", "udtalt"]

fun vaelgadv () = Str (vaelgfra adverbier)