import Control.Concurrent import GetURL import qualified Data.ByteString as B import Text.Printf import Control.Monad -- <
>