#!/bin/env tclsh source lib.tcl setup ? puts {Part 1: } foreach line $input { } close $input puts "1: $" puts "" puts {Part 2: } puts "2: $"