let
parse_nested f c =
(with_curr_loc f c; set_start_p c; buff_contents c)