/ 99 Bottles of Beer
/ by @txlyre
/ usage m -f 99b

bottles:{[n]
  :[n=0
    :"No bottles"
    n=1
    :"1 bottle"
    :cat[n;" bottles"]
  ]    
}
drink:{[n]
  sayln cat[bottles n;" of beer on the wall,"]
  sayln cat[bottles n;" of beer."]
  sayln "Take one down, pass it around,"
  sayln cat[bottles n-1;" of beer on the wall."]  
}
drink'range[99;1]