(* -*- mode: sml -*-
 * $Id: hello.smlnj,v 1.2 2001/07/09 00:25:28 doug Exp $
 * http://www.bagley.org/~doug/shootout/
 *)

structure Test : sig
    val main : (string * string list) -> OS.Process.status
end = struct

fun main(name, args) = 
  let in print "hello world\n"; OS.Process.success end;

end

val _ = SMLofNJ.exportFn("hello", Test.main);