⍝ APL (A Programming Language) ⍝ Program written by JT. Taylor, www.jttaylor.net T1←98↑[1]ØΦ1 99ρι99 T4←ØΦ1 98ρι98 T1,(98 30ρ’ BOTTLES OF BEER ON THE WALL, ‘),T1,(98 47ρ’BOTTLES OF BEER, TAKE ONE DOWN, PASS IT AROUND,’),T4,(98 28ρ’BOTTLES OF BEER ON THE WALL ,’) ‘1 BOTTLE OF BEER ON THE WALL, 1 BOTTLE OF BEER, TAKE IT DOWN, PASS IT AROUND, NO BOTTLES OF BEER ON THE WALL.’