set theRecord to {firstName:"Saga", lastName:"Norén", city:"Malmö"}
makeXMLDocWithRecord(theRecord)
–>
(*
"<?xml version=＼"1.0＼" encoding=＼"UTF-8＼" standalone=＼"yes＼"?>＼n<character>＼n <firstName>Saga</firstName>＼n <city>Malmö</city>＼n <lastName>Norén</lastName>＼n</character>"
*)

set theRecord to {firstName:"Saga", lastName:"Norén", city:"Malmö", partner:{firstName:"Martin", lastName:"Rohde", city:"København"}}
makeXMLDocWithRecord(theRecord)
–>
(*
"<?xml version=＼"1.0＼" encoding=＼"UTF-8＼" standalone=＼"yes＼"?>＼n<character>＼n <firstName>Saga</firstName>＼n <lastName>Norén</lastName>＼n <city>Malmö</city>＼n <partner>＼n <firstName>Martin</firstName>＼n <city>København</city>＼n <lastName>Rohde</lastName>＼n </partner>＼n</character>"
*)

–Record –> XML (text)
on makeXMLDocWithRecord(theRecord)
　　— make root element
　　set rootElement to current application’s NSXMLNode’s elementWithName:"character"
　　
　　— make XML document
　　set theXMLDocument to current application’s NSXMLDocument’s alloc()’s initWithRootElement:rootElement
　　theXMLDocument’s setDocumentContentKind:(current application’s NSXMLDocumentXMLKind)
　　theXMLDocument’s setStandalone:true
　　theXMLDocument’s setCharacterEncoding:"UTF-8"
　　
　　— make dictionary from record
　　set anNSDictionary to current application’s NSDictionary’s dictionaryWithDictionary:theRecord
　　
　　— add children to root element
　　its addChildTo:rootElement withDictionary:anNSDictionary
　　
　　— return as string with whatever formatting options you want
　　return (theXMLDocument’s XMLStringWithOptions:(current application’s NSXMLNodePrettyPrint)) as text
end makeXMLDocWithRecord