4 lines
155 B
Text
4 lines
155 B
Text
('+ '- '* 'div 'mod)
|
|
(("Enter an integer" ask integer) 2 times) quote-map =>
|
|
("$1 -> $2" rollup concat dup -> quote prepend %) prepend
|
|
map "\n" join puts!
|