let location_of_iter iter = let char = iter#offset in let line_start = (iter#set_line_offset 0)#offset in (iter#line, char - line_start)