crete, let us create a component ourselves:
  </P>
  <PRE class=code>
    val component =
        comp
            import structure TextIO : TEXT_IO from "x-alice:/lib/system/TextIO"
        in
            val run : unit -> string
        with
            fun run() =
            let
               val file = TextIO.openOut "message.txt"
            in
               TextIO.output(file, "Imperative programming rules!\n");
               TextIO.closeOut file;
               "Functional programming is nice."
 