RosettaCodeData/Task/A+B/Forth/a+b.fth

2 lines
31 B
Forth
Raw Permalink Normal View History

2013-04-10 14:58:50 -07:00
pad dup 80 accept evaluate + .