line-mode
read-nums
dup
reverse
counter
even
f:
        48
        drop
        rot
            over
            index
            not
            drop
        b4
        each
    t6
    catenate #(list+list)
    length