sub _len {
    my $cx = $_[1];
    (@$cx-1)*$BASE_LEN+length(int($cx->[-1]));  # <--- line 1209
}