procedure main()
every writes(x := 1 to 10) do {
   if x % 5 = 0 then {
      write()
      next
      }
   writes(", ")
   }
end