let input_sexps ?text_line ?text_char ?buf_pos ?buf ic = let rev_sexps = input_rev_sexps ?text_line ?text_char ?buf_pos ?buf ic in List.rev rev_sexps