(* Basis.sig * Copyright 1996, 1998 Peter Sestoft.  
   Må kopieres og modificeres jvfr. GNU General Public License *)

datatype ordsek = 
    Tom 
  | Str of string
  | op && of ordsek * ordsek

datatype genus = itk | fk
datatype numerus = ent | flt
datatype bestemthed = bes | ubs

exception Umulig

val mksek     : int -> (unit -> ordsek) -> ordsek
val tilfoej   : string -> string -> string
val skrivseed : unit -> ordsek
val strseed   : unit -> string
val saetseed  : real -> unit
val vaelgfra  : 'a vector -> 'a
val vaelgikke : ''a list -> ''a vector -> ''a
val terning   : int -> int
val ssh       : real -> bool