IN: prefix-words SYNTAX: PREFIX-WORD:
    scan-word [ name>> ":" append create-in ] keep scan-number
    [ [ scan-object swapd suffix! ] times swap suffix! ] 2curry
    define-syntax ;
IN: prefix-words PREFIX-WORD: when 1
IN: prefix-words t when: [ "hey" . ]
"hey"