let scan_sexp ?buf lexbuf = Parser.sexp (Lexer.main ?buf) lexbuf