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