read-nums
2
chunks
right-uncons
nip-a
extract-array
{
    push-a
        last
        over
        swap
        divides
    f4
    1
    take
        head
        over
        *
        @2
        last
        /
    b6
    each
}
times #(eval)
wrap-stack
unlines