gistfile1.hs

import Network.HTTP.Conduit (simpleHttp)
import qualified Data.ByteString.Lazy as L
import qualified Data.ByteString.Lazy.Char8 as C
import Text.XML.HXT.Core
import Data.List

urbanDictionaryURL :: String
urbanDictionaryURL = "https://www.urbandictionary.com/random.php"

getRandomUrbanEntry :: IO String
getRandomUrbanEntry = do
  html <- simpleHttp urbanDictionaryURL >>= return . C.unpack
  (runX $ (readString [withParseHTML yes, withWarnings no] html) //> hasAttrValue "class" (isInfixOf "example") >>> getChildren >>> getText) >>= (return . head)