-- Copy "a" to the right of the stack
KA: clone ~ ~1 ~ ~ ~1 ~ ~ ~ ~-1
-- Move the rest of the stack down
KB: clone ~ ~2 ~-6 ~ ~50 ~4 ~ ~1 ~-6 replace force
-- Insert K'A into the IP slot and K'B and K'C after it
KC: clone 5 1 3 5 1 5 ~ ~ ~-2 destroy

-- Copy stored block to here, destroy stored block with next air block
K'A: clone ~ ~ ~-2 ~ ~ ~-1 ~ ~ ~-1 destory force
-- Move the stack down, destroying the constanted block
K'B: clone ~ ~2 ~-6 ~ ~50 ~4 ~ ~1 ~-6 replace force
-- Destroy K'C and K'B (K'A destroyed itself)
K'C: fill ~ ~ ~ ~ ~ ~-1 air 0 destroy

Stack: bottom block is IP slot, more commands point to the +Z, storage is to the -Z