USING: arrays definitions fry grouping io kernel lexer locals locals.parser locals.types make math math.order math.parser multiline namespaces parser quotations sequences strings tools.continuations vocabs.parser words ; IN: shortlocals SYNTAX: B: scan-word definition [ break "now press O I" drop ] prepose call( accum -- accum ) ;