(* rand_analyzer.ml *) (* ML program for telling if a given expression has a string op in it *) let _ = try let lexbuf = Lexing.from_channel stdin in while true do let result = Rand_parse.main Rand_lex.token lexbuf in match result with true -> print_endline "Yes there was a string op."; flush stdout | false -> print_endline "No there was no string op."; flush stdout done with Rand_lex.Eof -> exit 0