% Unisys MCP Algol version of 99 Bottles, using remote file I/O.
begin
integer i;
file stdout(kind=remote);
for i:= 99 step -1 until 1 do
  write(stdout, <j3," bottle(s) of beer on the wall, ",
                 j3," bottle(s) of beer."/
                 "Take one down and pass it around,"/
                 j3," bottle(s) of beer on the wall.">, i, i, i-1);
end.