let bump_pos_cont state str ~max_pos ~pos cont = bump_text_pos state; cont state str ~max_pos ~pos:(pos + 1)