USING: io kernel math math.parser formatting sequences prettyprint io.streams.byte-array io.streams.sequence ;
IN: template
:sq(x--y)
dup*;
readln string>number
(scratchpad)6 sq
number>string print
VVNJTkc6IGlvIGtlcm5lbCBtYXRoIG1hdGgucGFyc2VyIGZvcm1hdHRpbmcgc2VxdWVuY2VzIHByZXR0eXByaW50IGlvLnN0cmVhbXMuYnl0ZS1hcnJheSBpby5zdHJlYW1zLnNlcXVlbmNlIDsKSU46IHRlbXBsYXRlCjpzcSh4LS15KQpkdXAqOwoKcmVhZGxuIHN0cmluZz5udW1iZXIKKHNjcmF0Y2hwYWQpNiBzcQogICAKCgpudW1iZXI+c3RyaW5nIHByaW50