# init to 1 INC A_Bug INC B_Task .TODO %print reg %sleep 1 # moves A into C and adds A to B DEC A_Bug .QA INC C_Story INC B_Task DEC Z .TODO .QA %print reg %sleep 1 # moves C into A DEC C_Story .TODO INC A_Bug DEC Z .QA