verse ( n -- )

Vocabulary

99-bottles

Inputs

n

an object

Outputs

None

Definition

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

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-words print nl ;