sub interleave { @_[map $_&1 ? $_>>1 : ($_>>1)+($#_>>1), 1..@_] }