-

-
(0,0) init
v>vvv...vvv>>		(1,0) 1 INC
NEXTv>vvv>		(2,0) double A
 		(3,0)
>>		(4,0) keep B
 		(5,0)
>>		(6,0) end
 		(7,0) 2 INC
NEXTv>vvv>		(8,0) double A
 		(9,0)
>>		(10,0) keep B
 		(11,0)
>>		(12,0) end
 		(13,0) 3 DEC
 		(14,0) halve A
 		(15,0)
>>		(16,0) keep B
 		(17,0)
>>		(18,0) restore A
 		(19,0)
>>		(20,0) keep B
 		(21,0)
SUC>>...>vvv>		(22,0) keep A
 		(23,0)
>>		(24,0) keep B
 		(25,0)
>>		(26,0) end
 		(27,0) 4 INC
NEXTv...>vvv>		(28,0) keep A
 		(29,0)
>>		(30,0) double B
 		(31,0)
>>		(32,0) end
 		(33,0) 5 HALT
 		(34,0) rem A
 		(35,0)
 		(36,0) rem B
 		(37,0)
 		(38,0) halt
 
(0,1)
 		(1,1)
 		(2,1)
 		(3,1)
 		(4,1)
 		(5,1)
 		(6,1)
 		(7,1)
 		(8,1)
 		(9,1)
 		(10,1)
 		(11,1)
 		(12,1)
 		(13,1)
 		(14,1)
 		(15,1)
 		(16,1)
 		(17,1)
 		(18,1)
 		(19,1)
 		(20,1)
 		(21,1)
 		(22,1)
 		(23,1)
 		(24,1)
 		(25,1)
 		(26,1)
 		(27,1)
 		(28,1)
 		(29,1)
 		(30,1)
 		(31,1)
 		(32,1)
 		(33,1)
 		(34,1)
 		(35,1)
 		(36,1)
 		(37,1)
 		(38,1)
 
(0,2)
 		(1,2)
 		(2,2)
AvvvvAvvvv		(3,2)
 		(4,2)
Bvvvv		(5,2)
 		(6,2)
 		(7,2)
 		(8,2)
AvvvvAvvvv		(9,2)
 		(10,2)
Bvvvv		(11,2)
 		(12,2)
 		(13,2)
 		(14,2)
Avv		(15,2)
 		(16,2)
Bvvvv		(17,2)
 		(18,2)
Avvvv		(19,2)
>>		(20,2)
 		(21,2)
FAI>>...>vvv>		(22,2)
 		(23,2)
>>		(24,2)
 		(25,2)
>>		(26,2)
 		(27,2)
 		(28,2)
Avvvv		(29,2)
 		(30,2)
BvvvvBvvvv		(31,2)
 		(32,2)
 		(33,2)
 		(34,2)
 		(35,2)
 		(36,2)
 		(37,2)
 		(38,2)
 
(0,3)
 		(1,3)
 		(2,3)
 		(3,3)
 		(4,3)
 		(5,3)
 		(6,3)
 		(7,3)
 		(8,3)
 		(9,3)
 		(10,3)
 		(11,3)
 		(12,3)
 		(13,3)
 		(14,3)
 		(15,3)
 		(16,3)
 		(17,3)
 		(18,3)
 		(19,3)
 		(20,3)
Bvvvv		(21,3)
 		(22,3)
Avvvv		(23,3)
 		(24,3)
Bvvvv		(25,3)
 		(26,3)
 		(27,3)
 		(28,3)
 		(29,3)
 		(30,3)
 		(31,3)
 		(32,3)
 		(33,3)
 		(34,3)
 		(35,3)
 		(36,3)
 		(37,3)
 		(38,3)