SYNTAX: PREFIX-WORD: scan-word [ name>> ":" append create-in ] keep scan-number [ [ scan-object suffix! ] times suffix! ] 2curry define-syntax ;