let read () =
  let lexbuf = Lexing.from_channel stdin in
  MiniMLParser.main MiniMLLexer.token lexbuf

let mlexp_of_string s = 
  let lexbuf = Lexing.from_string (s ^ ";;") in
  MiniMLParser.main MiniMLLexer.token lexbuf

(*

#load "miniMLLexer.cmo";;
#load "miniMLParser.cmo";;
#load "miniMLReader.cmo";;
open MiniML;;
open MiniMLReader;;

*)