01 LBL 02
 02 0
 03 LBL 02
 04 0
 05 LBL 02
 06 0
 07 LBL 04
 08 ENTER
 09 X<Y?
 10 STO 04
 11 E^X
 12 END