(!<//.>) :: (Functor m, Applicative m, Failure XmlException m)
         => Cursor -> [Text] -> m Cursor
el !<//.> path =
    forceEx ("missing " ++ pathStr) $ el $/ (foldl1 (&/) $ map laxElement path)
  where pathStr = T.unpack . T.concat $ path
(!<//.>) :: (Functor m, Applicative m, Failure XmlException m)
         => Cursor -> [Text] -> m Cursor
el !<//.> path =
    forceEx ("missing " ++ pathStr) $ el $/ (foldl1 (&/) $ map laxElement path)
  where pathStr = T.unpack . T.concat $ path
el !<//.> path =
    forceEx ("missing " ++ pathStr) $ el $/ (foldl1 (&/) $ map laxElement path)
  where pathStr = T.unpack . T.concat $ path