line-mode
read-nums
sort #(list)
extract-array
over
-
swap
range1
times #(list)
@1
    square
m1
catenate #(list+list)
sum