D=:noun define
% bottle% of beer on the wall, % bottle% of beer.
Take one down and pass it around, % bottle% of beer on the wall.
)
R=:_1 drop noun define
, no more bottles of beer on the wall.
No more bottles of beer on the wall, no more bottles of beer.
Go to the store and buy some more
)
Q=:}.;1 2 0 3{R;<;.1',',D
N=:(":;1&<#'s'"_)
S=:,(N"0)99 99,(3#|.1+i.98),99
uncorrect=:('.'_35}])
stdout uncorrect;S,.<;._1;98 1#D;Q
Note that non-ascii characters in the above source code will be escaped (such as \x9f).