5 lines
155 B
Text
5 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!
|