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