import System
import Data.Set hiding (filter,map,null)

main = do 
     [x] <- getArgs
     xs <- readFile x
     interact $ runFilter (fromList (words xs))
     
runFilter :: Set String -> String -> String
runFilter s = unlines . filter (not.null) . 
              map (unwords . filter (flip member s) . words) . lines