#!/usr/local/bin/tclsh8.6
for {set i 1} {$i <= 30} {incr i} {
        puts $i
}