1val _ = PolyML.Compiler.prompt1:="";
2val _ = PolyML.Compiler.prompt2:="";
3val _ = PolyML.print_depth 0;
4val _ = use "mllex.sml";
5
6fun main() = let
7  val name = CommandLine.name()
8in
9  case CommandLine.arguments() of
10    [] => (TextIO.output(TextIO.stdErr, name ^ ": no arguments\n");
11           OS.Process.exit OS.Process.failure)
12  | args => List.app LexGen.lexGen args
13end;
14