module
Text.XML.WraXML.Utility
where
compose
::
[
a
->
a
]
->
a
->
a
compose
=
flip
(
foldr
(
$
)
)