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