let add_loc bp parse_fun strm =
                  let x = parse_fun strm in
                  let ep = loc_ep strm in
                  let loc = Loc.merge bp ep in (x, loc)