IN: temporary
USING: generic kernel lists math memory words ;

num-types [
    [
        builtin-type [
            "predicate" word-prop instances [
                class drop
            ] each
        ] when*
    ] keep
] repeat