# Pastebin BsSUZulL
{-# OPTIONS_GHC -Wall #-}

import qualified Conduit
import Conduit ((.|))

url :: String
url = "https://wttr.in/"

main :: IO ()
main = Conduit.runConduit $ Conduit.yieldMany url .| Conduit.printC

-- $ runghc Foo.hs
-- 'h'
-- 't'
-- 't'
-- 'p'
-- 's'
-- ':'
-- '/'
-- '/'
-- 'w'
-- 't'
-- 't'
-- 'r'
-- '.'
-- 'i'
-- 'n'
-- '/'