1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
$ #input [s +( [sLACONIC EXPRESSION INTERPRETER] ¶ [sEnter "q" to quit.] ¶ ) ] $ #isTitle 1 W != v#input #q ;( w? v#isTitle # [s ] w Ev#input $ #isTitle 0 w + ¶ [sEnter an expression: ] $ #input r )