sub tye1 {
    my( $sentence, $wantedLetters )= @_;
    -1 == index($sentence,$1) && return 0
        while( $wantedLetters =~ /(.)/gs );
    return 1;
}