to bottle :i
    if :i = 0 [output [No more bottles of beer]]
    if :i = 1 [output [One bottle of beer]]
    output se :i [bottles of beer]
end

to verse :i
    pr (se bottle :i [ on the wall,]