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

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