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@465: return
adamc@465: {case ro of
adamc@465: None => No cookie set.
adamc@465: | Some v => Cookie: A = {[v.A]}, B = {[v.B]}, C = {[v.C]}}
adamc@465:
adamc@464:
adamc@465:
adamc@465: