bottles ( n -- number string )

Vocabulary

99-bottles

Inputs

n

an object

Outputs

number	an object
string	an object

Definition

USING: kernel math math.parser ;

IN: 99-bottles

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