rpn ( -- )

Vocabulary

rpn

Inputs

None

Outputs

None

Definition

USING: io kernel ;

IN: rpn

: rpn ( -- )
    "RPN> " write flush readln
    [ rpn-parse rpn-eval print-stack rpn ] when* ;