()0D BTC DATAPLAN-FOCAL73?MDEBAC BEERS FOR TORRE?MCKFAC LOOP OVER BEERS?MF^T "PASS ONE AROUND ...",!?MB,FTT " BEERS ON THE WALL",!?MB<FJT %10.0,B-I?MB B2Q?MCTB^T "YOU	RE DRUNK!!!",!!?MDLBTF I=0,B-1-I; D 3?MC&BJA "HOW MANY BEERS DO YOU WANT
 " B?MC1BET !!!!!?MCXBYT %10.0,B-I," BEERS ON THE WALL",!?M ?L S BEER.S?M?M,!?M ?BEERS ON THE WALL",!?M!?M?)11.26,11.26,?H;S Q=Q-1;G 1.22?MEVZI (L-NU) 1.28,1?H?H?H?H?H?H11.28,115?H.54,11.28?ME=V\S L=L+1;S S=S/2;S H=H+1;S P=N-1;S Z=1/(2+(-H))?MV SC