Interleave(A, B)
Trim(0,-1)++Trim(2,0).SelectEvery(8,0,2,4,7)