read-nums
save-a
head
74
over
/
inc
half
    show-line
    @0
    dup
    push-a
    get
    +
b6
times #(eval)