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