-- 7 Billion Humans (2144) --
-- Level 63: Defrag Disordered --
-- Shortest Program: 26 Commands --
-- Fastest Program: 59 Seconds --
mem1 = nearest datacube
a:
pickup mem1
b:
if e != hole:
step e
jump b
endif
c:
if s != datacube:
step n
jump c
endif
d:
mem1 = set s
if c == datacube:
if s != datacube:
step s
else:
if n != datacube:
step n
else:
step w
jump d
endif
endif
endif
drop
step mem1
step sw
e:
mem1 = foreachdir w,sw,s,e,se:
if mem1 == datacube:
jump a
endif
endfor
step w
jump e