sub ofs2line {
    my $offset = shift;
    for (0 .. $#ofs) {
        return ($_, $offset-$ofs[$_-1]) if $offset < $ofs[$_];
    }
    return ();