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

val _ = 
    case Mosml.argv () of 
        [_]       => Format.skaerm (Rapport.rapport ())
      | [_, seed] => (case Real.fromString seed of
                          SOME r => (Basis.saetseed r;
                                     Format.skaerm (Rapport.rapport ()))
                        | NONE   =>  print "Brug: forslag [rapportnr]\n")
      | _         => print "Brug: forslag [rapportnr]\n"