let rec main () =
  print_string "starting";
  let words = ref [] in
  let lexbuf = Lexing.from_channel stdin in

  try
    words := Parser.program Lexer.bf lexbuf :: !words;
    print_string "found something";
    main ()
  with End_of_file -> exit 0

let _ = print_string "asdf";Printexc.print main ()