1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
donkey bar .ASSIGNA 0 .AWHILE \&bar LT 5 HI BAR IS \&bar foo .ASSIGNA 0 .AWHILE \&foo LT 2 HI BEFORE .AREPEAT 2 HI MEDIUM \&foo \&bar .AENDR HI AFTER foo .ASSIGNA \&foo + 1 .AENDW bar .ASSIGNA \&bar + 1 AND ITS NOW \&bar .AENDW .END