99 bottles of beer in Icoruma

== 99 bottles of beer on the wall...

==Define y
=.=Pack
=.=Copy =Value z
\?\zbottles of beer on the wall\n
\?\zbottles of beer\n
Take 1 down and pass it around\n
=.=Calc @z 1 - !z @z !=Value
=.=Verify
\?\zbottles of beer on the wall\n
=.=Dump
\?
==End

==Calc 99 Range !x 99 !z
==Iterate x y
No more bottles of beer on the wall.
==Dump
\?