perl -le '@a = a..d; print $a[$i++ % @a] for 0..15'