Year 65 - Defrag Ordered

-- 7 Billion Humans (2235) --
-- 65: Defrag Ordered by dmr [https://steamcommunity.com/profiles/76561197960413748] --

mem1 = foreachdir nw,w,n,s,ne,e,se:
	step n
endfor
a:
if w != datacube and
 c == datacube and
 myitem != datacube or
 mem2 != datacube:
	pickup c
	step mem2
	mem2 = set myitem
endif
if myitem == datacube and
 c != datacube:
	drop
endif
if e == hole:
	step sw
	mem1 = foreachdir nw,w,n,ne,e,se:
		step w
	endfor
else:
	step e
endif
jump a