DATAWORD                                 updated Mark Rubinstein  October 1985

This procedure can be applied to any object and returns a word representing
the type of the object; for example:

    dataword(3) =>
    ** integer,
    dataword([a b c]) =>
    ** pair,
    dataword("fred") =>
    ** word
    dataword(hd) =>
    ** procedure

A procedure to recognise a string, for example, could be defined as:

    define isstring(s);
        dataword(s) == "string"
    enddefine;

See also HELP * DATAKEY.
