adamc@801: val mapX : a ::: Type -> b ::: Type -> ctx ::: {Unit}
adamc@801:            -> (a -> b -> xml ctx [] []) -> list a -> list b -> xml ctx [] []