use constant STICK2 => [ 15, map( ($_) x 2, 15..23 ), (24) x 100 ];
sub stick2{
    my $q = STICK2->[ 1 + $_[0] / 1000 ];
    # changed to "<=", and "15"
    return $q <= $_[1] ? 15 : $q;
} # sub stick2