function is_type ( $str, $typ )
        {
#-k     string search is
#-      is every character in $str also in $typ? if so, return -1, else return position of first bad char

        for ($i=0;$i<strlen($str);$i++)
                if ( !strpos(' '.$typ,$str[$i]) ) return $i;

        return -1;
        }

?>