adam@1: fun crender r =
adam@1:     <xml><cselect source={r.Selected}>
adam@1:       {List.mapX (fn r' => <xml><coption value={r'.Key}>{[r'.Display]}</coption></xml>) r.Choices}
adam@1:     </cselect></xml>
adam@1: 
adam@1: fun crender' r =
adam@1:     <xml><cselect source={r.Selected}>
adam@1:       {List.mapX (fn s => <xml><coption>{[s]}</coption></xml>) r.Choices}
adam@1:     </cselect></xml>