adamc@464: cookie c : {A : string, B : float, C : int}
adamc@464:
adamc@464: fun set r =
adamc@464: setCookie c {A = r.A, B = readError r.B, C = readError r.C};
adamc@464: return Cookie set.
adamc@464:
adamc@464: fun main () =
adamc@464: ro <- getCookie c;
adamc@464: let
adamc@464: val xml = case ro of
adamc@464: None => No cookie set.
adamc@464: | Some v => Cookie: A = {[v.A]}, B = {[v.B]}, C = {[v.C]}
adamc@464: in
adamc@464: return
adamc@464: {xml}
adamc@464:
adamc@464:
adamc@464:
adamc@464: end
adamc@464:
adamc@464: