$> ( M-x a -- M-x )

Vocabulary

monadics

Inputs

M-x	an object
a	an object

Outputs

M-x

an object

Definition

USING: kernel ;

IN: monadics

: $> ( M-x a -- M-x ) '[ drop _ ] fmap ;