searchEngine :: String -> IO [String] -> IO [String]
searchEngine query internet = do
    pages <- internet
    return $ filter (query `isInfixOf`) pages
searchEngine :: String -> IO [String] -> IO [String]
searchEngine query internet = do
    pages <- internet
    return $ filter (query `isInfixOf`) pages
searchEngine query internet = do
    pages <- internet
    return $ filter (query `isInfixOf`) pages