function a($)
  dim $w,$b
  if $+0>$
    $=0+$
    if $
      $a="Take one down and pass it around, " + a($-1) 
    else
	  $a="Go to the store and buy some more, " + a(99)
    endif
    $b=" bottle"	
    $a=$a + $b + chr(115*($<>2))
	if $<>1
	  $b=$b + s
	endif
    ;$b=$b + chr(115*($<>1))      
    $w=" of beer on the wall"
    $a=ucase(left(a($),1)) + right(a($),~) + $b + $w + ", " +  a($) + $b + " of beer. " + $a  + $w + "."
  else
    $b="no more",one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,seventeen,eighteen,nineteen,twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety
    if $<20
      $a=$b[$]
    else
      $a= $b[18+ $/10]	  
      if $ mod 10
        $a=$a + "-" + $b[$ mod 10] 
      ;endif
    ;endif     
  ;endif
endfunction