sub extract{
    my $index = shift;
    my ($last, $lastindex);
    foreach (@runlengths[1 .. $#runlengths]){
	($last, $lastindex) = ($$_[0], $lastindex + $$_[1]);
	return $last if $index <= $lastindex - 1;
    }
    return undef;
}