// PanTalk version of 99 Bottles of Beer
// PanTalk is the scripting language of Panorama
// This procedure requires Panorama 3.0 or later

Local OnePhrase
FileGlobal Lyrics

OnePhrase = "of beer on the wall, xx of beer."+¶
    +"Take one down and pass it around, yy of beer on the wall."

ArrayFilter rep(¶,99),Lyrics,¶,pattern(100-seq(),"§ bottle~ ")+
    replace(replace(OnePhrase,"xx",lower(pattern(100-seq(),"§ bottle~"))),
    "yy",l