# It needs an Arc Furnace, that's all!

alias Furnace d0

alias ImportOccupied r0
alias Active r1
alias RunFurnace r2

start:
yield
ls ImportOccupied Furnace 0 Occupied
l Active Furnace Activate
xor RunFurnace ImportOccupied Active
bgtz RunFurnace run 
j start

run:
bgtz Active start # already running = go to start
s Furnace Activate 1
j start