structure Shell =
struct
  fun main () =
    case CommandLine.arguments () of
      ["-r"] => (print "todo: convert dsc files to sml file\n")
    | [] => InitGlfw.main ()
    | args =>
        let
          val args = String.concatWith "" args
          val msg = String.concat ["unknown arguments error: \"", args, "\"\n"]
        in
          print msg
        end
end

val _ = Shell.main ()