Info: Case statement

[David Harris]

I found a nice case statement form:

c {+-*+*+}\1- {uX u'+={(add )}i u'-={(minus )}i '*={(times )}i 1+}l

This outputs: "add minus times add times add"

I added a X trap that pops a char onto the stack from the {} list.