USING: ascii combinators combinators.smart io kernel math
sequences ;

IN: 99-bottles

: verse ( n -- )
[
{
[ bottles "of beer on the wall," ]
[
bottles
"of beer.\nTake one down, pass it around,"
]
[
1 - bottles [ >lower ] dip
"of beer on the wall."
]
} cleave
] output>array " " join print nl ;