line-mode
read-nums
extract-array
-
    square
t1
-
@8
extract-array
+
    square
t1
swap
-
*
sqrt
half
inc
half