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