
	package require Tcltest
	close stdin
	puts [testchannel open]
    
