haskell - HXT を使用して単語を分割する

Question

HXT で単語を分割するにはどうすればよいですか? 例えば ​​：

私はそれを持っています - >

{-# LANGUAGE Arrows, NoMonomorphismRestriction #-}
import Text.XML.HXT.Core
import System.Environment  --para uso do getArgs

data Class = Class { name ::String }
    deriving (Show,Eq)

main = do
   [src]<- getArgs
   teams <- runX(readDocument [ withValidate no] src  >>> getClass)
   print teams

atTag tag = deep (isElem >>> hasName tag)
getClass = atTag "owl:Class" >>>
    proc l -> do
    className <- getAttrValue "rdf:about" -< l
    returnA -< Class { name = className }

そして、単語 ClassName を分割したい! そのプログラム (チーム) の結果として、ハイパーリンクの Web サイト (http:// ......) のセットが得られるからです。(XML ファイルのため) 解決するためのヒントを教えてください。ありがとうございました ！