SYNTAX: FALLBACK:
    CREATE-CLASS dup define-singleton-class \ ; parse-until swap
    '[ [ _ swap create-method-in ] [ 1quotation [ get ] prepose ] bi define ]
    each ;