main = do
   c <- getContents
   putStr (unlines(filter (\line -> contains "Haskell" line)
                          (lines c)))
main = do
   c <- getContents
   putStr (unlines(filter (\line -> contains "Haskell" line)
                          (lines c)))
main = do
   c <- getContents
   putStr (unlines(filter (\line -> contains "Haskell" line)
                          (lines c)))