procedure main( cc )
if cc[ 1 ] == "-e" then
    ff := open( "engl.txt", "r" ) | stop( "Put the dictionary file in this directory." ) else
    ff := open( "glen.txt", "r" ) | stop( "Put the dictionary file in this directory." )
repeat {
    hh := 0
    rr := 0
    bb := read()
    if bb == "q" then break
    if bb[ *bb ] == "-" then {
	size := *bb - 1
	name := bb[ 1:*bb ] } else {
	size := *bb + 1
	name := bb || " " }
	
    seek( ff, 2161 ) 
    while gg := read( ff ) do {
	gg ? { if move( size ) == name then { write( gg ) 
	    hh +:= 1 } }
	    
	if hh > 0 then { rr +:= 1
	    if rr > hh then break next } 
	}
    write( "not found" ) }
    
end