sub match {
    my @h;
    ++ $h [ord]                for split // => shift;
    -- $h [ord] < 0 and return for split // => shift;
    1;
}