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
 

aW1wb3J0IERhdGEuTWF5YmUKaW1wb3J0IE5ldHdvcmsuQnJvd3NlcgppbXBvcnQgTmV0d29yay5IVFRQCmltcG9ydCBOZXR3b3JrLlVSSQppbXBvcnQgU3lzdGVtLklPCmltcG9ydCBxdWFsaWZpZWQgRGF0YS5CeXRlU3RyaW5nLkNoYXI4IGFzIEIKCm1haW4gPSBkbyBzIDwtIGZtYXAgKCghISA0MTgpIC4gQi5saW5lcyAuIHJzcEJvZHkpICQgZiAiaHR0cDovL3QuLi5jb250ZW50LWF2YWlsYWJsZS10by1hdXRob3Itb25seS4uLmgubmV0L3RlY2gvZGF0LzEzNTcxOTE5NzQuZGF0IjsgcyBgc2VxYCByZXR1cm4gKCkKZiA6OiBTdHJpbmcgLT4gSU8gKFJlc3BvbnNlIEIuQnl0ZVN0cmluZykKZiB1cmwgPQogIGZtYXAgc25kICQgYnJvd3NlICQgZG8KICAgIHNldFVzZXJBZ2VudCAiTW96aWxsYS81LjAgKGNvbXBhdGlibGU7IE1TSUUgMTAuMDsgV2luZG93cyBOVCA2LjI7IFRyaWRlbnQvNi4wKSIKICAgIHNldEFsbG93UmVkaXJlY3RzIFRydWUKICAgIHNldE91dEhhbmRsZXIgKGNvbnN0IChyZXR1cm4gKCkpKQogICAgc2V0RXJySGFuZGxlciAoY29uc3QgKHJldHVybiAoKSkpCiAgICByZXF1ZXN0ICQgbWtSZXF1ZXN0IEdFVAogICAgICAkIGZyb21NYXliZSAoZXJyb3IgJCAiZ2V0UmVxdWVzdDogTm90IGEgdmFsaWQgVVJMIC0gIiArKyB1cmwpICQgcGFyc2VVUkkgdXJsCg==