1structure mosmlmain = 2struct 3 4val name = CommandLine.name() 5val _ = case CommandLine.arguments() of 6 [] => (TextIO.output(TextIO.stdErr, name ^ ": no arguments\n"); 7 OS.Process.exit OS.Process.failure) 8 | args => List.app LexGen.lexGen args 9 10end 11