m:
    binary #(num to list)
    reverse
    5
    chunks
    extract-array
    counter
    even
    f:
        rot
            reverse
            rot
            catenate #(list+list)
            binary #(list to num)
        t4