January 8, 2016 19:57
diff --git a/foo.ml b/foo.ml
 open Lexing
 open Lexer
 open Parser
 open Printf

 let fromString str =
  let lexbuf = Lexing.from_string str in
  let result = Parser.main Lexer.main lexbuf in
  printf "test";
  str
	open Lexing
	open Lexer
	open Parser
	open Printf

	let fromString str =
	let lexbuf = Lexing.from_string str in
	let result = Parser.main Lexer.main lexbuf in
	printf "test";
	str