#!/usr/athena/bin/perl
$WafeLib = $ENV{'WAFELIB'} || "/mit/sipb/lib/wafe";
require "$WafeLib/perl/wafe.pl";

&UI( <<"End of TCL");
### BEGIN wafedesign TCL ###
form form1 topLevel  \\
	sensitive true
asciiText asciiText2 form1  \\
	echo true \\
	editType edit \\
	callback echo \\
	type string \\
	scrollVertical whenneeded \\
	scrollHorizontal whenneeded
realize
### END wafedesign TCL ###
End of TCL

while(<STDIN>) {
    chop;
    print "---> <$_>\n";
}
&wafe'cleanup;