let buf = (Lexing.from_string "foo") in try while true do print_string (Minimal_useful_lexer.foo buf) done with Failure _ -> print_newline() ;;