function is ( $a )
        {
#-k     string  is
#-              what data-type is $a
#-      return what all the types it is:
#-               0 - null
#-               1 - bool
#-               2 - numeric
#-               3 - integer
#-               4 - float
#-               5 - string
#-               9 - assoc array
#-              10 - array
#-              11 - callable
#-              12 - object
#-              13 - resource
#-              14 - scalar

        $m = '';
        if (is_null($a))
                {
                $m .= 'null, ';
                }
        else
                {
                if (is_scalar   ($a))   $m .= 'scalar-';
                if (is_bool     ($a))   $m .= 'bool, ';
                if (is_int      ($a))   $m .= 'integer, ';
                if (is_float    ($a))   $m .= 'float, ';
                if (is_string   ($a))   $m .= 'string, ';
                if (is_numeric  ($a))   $m .= 'numeric, ';
                if (is_assoc    ($a))   $m .= 'assoc ';
                if (is_array    ($a))   $m .= 'array, ';
                if (is_callable ($a))   $m .= 'callable, ';
                if (is_object   ($a))   $m .= 'object, ';
                if (is_resource ($a))   $m .= 'resource, ';
                }

        return substr($m,0,max(0,strlen($m)-2));
        }

?>