define in [new TFileInput "01_read_file.tea"]
define s $null
define i 1

while {not-null? [set! s [$in readln]] } {
    echo "Line " $i ": " $s
    ++ i
}

$in close