///  b5 version of 99 bottles of beer
///  Laurent Vogel,  http://lvogel.free.fr
///  b5 url: http://sange.fi/~atehwa/b5/
///  run as: echo | b5 THIS_FILE

mac nl i => i<<<
>>>;;;
mac t i => <<<Take one down, pass it around>>>nl(i);;;
mac p n s c => n<<< bottle>>>s<<< of beer>>>nl(c);;;
mac w i => <<< on the wall>>>i;;;
mac a n => p(n)(s)(w(.))nl()p(n)(s)(w(,))p(