module Main(main) where
import qualified Data.HashTable as HashTable
import Data.Maybe
import Control.Monad

main = do
         d <- readFile "Usr.Dict.Words"
	 t <- HashTable.fromList HashTable.hashString [(k,())| k<-lines d]
	 words <- liftM lines getContents
	 let lu w = do
		    res <- HashTable.lookup t w
		    case res of 
			     Nothing -> putStrLn w
			     Just _ -> return ()
         sequence_ $ map lu words