SOLUTION:

Vocabulary

project-euler.common

Inputs

parsed

an object

Outputs

parsed

an object

Definition

USING: accessors kernel parser prettyprint sequences
vocabs.parser words ;

IN: project-euler.common

SYNTAX: SOLUTION:
    scan-word [ name>> "-main" append create-word-in ] keep
    [ drop current-vocab main<< ]
    [ [ . ] swap prefix ( -- ) define-declared ] 2bi ;