#!/usr/local/bin/tclsh8.6
expr 3+7
for {set i 1} {[expr $i<=25]} {incr i} {
        puts $i
}