For in KSH

I needed to create some files. I wanted to use seq command but not found on AIX. I had to simulate it with while. Here it is:


#!/bin/ksh
integer i=1
while ((i<5000))
do
# print "$i"
touch $i
i=i+1
done