string s; s := "";
for i = 1 step 1 until 10:
if i mod 5 = 0:
  s := s & decimal i & char10;
else:
  s := s & decimal i & ", "
fi; endfor
message s;
end