line-mode
read-nums
    digits
m1
extract-array
swap
@6
6
get
6
%
inc
half
    *
b1
    +
b1
    -
b1
    /
b1
4
make-array
get
zipwith
    10
    %
    show
m3