2024/tcl/templ.tcl


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#!/bin/env tclsh

source lib.tcl
setup ?

puts {Part 1: }

while {[gets $input line] != -1} {
}

close $input

puts "1: $"

puts ""
puts {Part 2: }

puts "2: $"