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