Pickling to XML

fun {ToXML L}
   '<info>'#{ListToXML L}#'</info>'
end

fun {ListToXML L}
   case L
   of nil then nil
   [] H|T then {EntryToXML H}#{ListToXML T} end
end

fun {EntryToXML Name#Age#Married}
   '<name>'   #Name   #'</name>'   #
   '<age>'    #Age    #'</age>'    #
   '<married>'#Married#'</married>'
end