line-mode-skip-first
read-nums
60
base #(list to num)
720
square
-
@4
base #(num to list)
tail
    100
    +
    show
    tail
m4
":"
join