RosettaCodeData/Task/Flow-control-structures/Tcl/flow-control-structures-7.tcl

forfilelines myline mydata.txt {
    puts [string length $myline]
}