let exp_of_string s = (Parser.main Lexer.token (Lexing.from_string s))