let
scan_iter_sexps ?buf ~f lexbuf =
scan_fold_sexps ?buf lexbuf ~init:() ~f:(
fun
() sexp
->
f sexp)