fun main [fname] =
let
  val stream = Stream.streamInit fname
  val tkl = Tokenizer.tokenize stream
  val fileInfo = Stream.convert stream
in
  Tokenizer.printTokens tkl (#2 fileInfo)
end
  | main _  = printLn "Expected a signle argument: file name"

val () = main $ CommandLine.arguments ()