#!/usr/local/bin/tclsh

source "yylex.tcl"

while 1 {
	set tok [yylex]
	puts stdout "yytext is `$yytext' tok is `$tok'"
	if { $tok == "EOF" } {
		break
	}
}

exit 0
