#  io version of 99 bottles of beer
#  Laurent Vogel,  http://lvogel.free.fr
#  Tested with the Amalthea interpreter:
#  http://www.dtek.chalmers.se/~d97masa/files/amalthea084.zip

declare p: -> s c; print_string_ s c.
declare nl: -> c; print_string "" c.
declare a: -> n c; = 0 n (p "No more" c); print_int_ n; c.
declare b: -