SQUARES AND CUBES
{ a program that calculates squares and cubes from 1 to the number on tos }
{ the 1001 number has been put here to let program run in pipe mode }

"Squares and cubes"i.."    square"i9'"     i"i9'"      cube"i.
"------------------------------------"i..
1000 1 [2p2p$>~][%2^10j9'%6j9'%3^10j.1+]#)0q

