Мальчик-дебил

Интересно, только я до сих пор не знал о существовании seq(1) и писал каждый раз

setenv N 1
while ( $N < 100 )
    do something with $N
    setenv N `expr $N + 1`
end

да?