let
scan_sexps ?buf lexbuf =
Parser
.sexps (
Lexer
.main ?buf) lexbuf