let
input_sexps ?parse_pos ?buf ic =
List
.rev (input_rev_sexps ?parse_pos ?buf ic)