sub improved {
    my $lstr = lc shift;
    my ($p, $ntst) = (length($lstr)-1);
    chop($ntst = substr($lstr, $p, 2)) lt $ntst and return 0
        while ($p--);
    1;
}