.|->.
num![[int]]99
<?>(num!>1)?:T:!
{
out!<-num!<-" bottles of beer on the wall, "!<-num!<-"bottles of beer."!<-crlf!<-"Take one down and pass it around, "
num!num-1
out!<-num!<-"bottles of beer on the wall."!<-n.2*(crlf)[[arr(2)[[num]]]]
}:f: del!<<num
out!<-"1 bottle of beer on the wall, 1 bottle of beer."!<-crlf!<-"Take one down and pass it around, no more bottles of beer on the wall."!<-n.2*crlf!<-"No more bottles of beer on the wall, no more bottles of beer."!<-crlf!<-"Go to the store and buy some more, 99 bottles of beer on the wall."