# Pastebin tIkjGAtc
{-# LANGUAGE OverloadedStrings #-}

import Conduit (printC)
import Control.Monad.Trans.Resource (runResourceT)
import Data.Conduit (runConduit, (.|))
import Network.HTTP.Simple (getResponseBody, httpSource)
import Text.XML.Stream.Parse (def, parseBytes)

main :: IO ()
main =
  runResourceT . runConduit $
    httpSource "https://zombo.com" getResponseBody .| parseBytes def .| printC