sub tye0 {
    -1 == index( $_[0], $1 )  &&  return 0
        while( $_[1] =~ /(.)/gs );
    return 1;
}