# Testing
"Enter number to square : " print readln todbl !sqr
"Square number of " print @sqr print " is " print
@sqr dup * !sqr
@sqr println
exit

