import Data.Maybe
import Network.Browser
import Network.HTTP
import Network.URI
import System.IO
import qualified Data.ByteString.Char8 as B

main = do s <- fmap ((!! 418) . B.lines . rspBody) $ f "http://t...content-available-to-author-only...h.net/tech/dat/1357191974.dat"; s `seq` return ()
f :: String -> IO (Response B.ByteString)
f url =
  fmap snd $ browse $ do
    setUserAgent "Mozilla/5.0 (compatible; MSIE 10.0; Windows NT 6.2; Trident/6.0)"
    setAllowRedirects True
    setOutHandler (const (return ()))
    setErrHandler (const (return ()))
    request $ mkRequest GET
      $ fromMaybe (error $ "getRequest: Not a valid URL - " ++ url) $ parseURI url