str = ""
repeat with i = 1 to 10
  put i after str
  if i mod 5 = 0 then
    put RETURN after str
    next repeat
  end if
  put ", " after str
end repeat
put str