DO i = 1, 10
  IF( MOD(i, 5) == 1 ) THEN
      WRITE(Format="i3") i
    ELSE
      WRITE(APPend, Format=" ',', i3 ") i
    ENDIF
ENDDO