read-num
save-a
negate
@0
inc
crange
    square
m1
length
@0
2
repeat-product
    sum
    push-a
    square
    >
m4
"*"
show-space
select
chunks
unlines