bottles ( n -- number string )


Vocabulary
99-bottles

Inputs
nan object


Outputs
numberan object
stringan object


Definition


: bottles ( n -- number string )
[ dup 0 > [ number>string ] [ drop "No more" ] if ]
[ 1 = not "bottles" "bottle" ? ] bi ;