crawlTheInternet :: IO [String]
crawlTheInternet = do
    putStrLn "Scanning pages.."
    putStrLn "Parsing HTML.."
    putStrLn "Following links.."
    return ["website about Haskell", "website about Ruby", "slashdot.org",
            "The Monad.Reader", "haskellwiki"]
crawlTheInternet :: IO [String]
crawlTheInternet = do
    putStrLn "Scanning pages.."
    putStrLn "Parsing HTML.."
    putStrLn "Following links.."
    return ["website about Haskell", "website about Ruby", "slashdot.org",
            "The Monad.Reader", "haskellwiki"]
crawlTheInternet = do
    putStrLn "Scanning pages.."
    putStrLn "Parsing HTML.."
    putStrLn "Following links.."
    return ["website about Haskell", "website about Ruby", "slashdot.org",
            "The Monad.Reader", "haskellwiki"]