get-operator ( operators -- word )


Vocabulary
24-game

Inputs
operatorsan object


Outputs
wordan object


Definition


: get-operator ( operators -- word )
dup "Operators: %u\n" printf flush dup readln find-operator
[ ] [ "Operator not found..." print get-operator ] ?if ;