adam@1423: cookie c : int
adam@1423:
adam@1423: fun setit () =
adam@1423: setCookie c {Value = 13,
adam@1423: Expires = None,
adam@1423: Secure = False};
adam@1423: return
adam@1423:
adam@1423: fun doit () =
adam@1423: ro <- getCookie c;
adam@1423: clearCookie c;
adam@1423: case ro of
adam@1423: None => return None
adam@1423: | Some v => return Some {[v]}
adam@1423:
adam@1423: fun main () = return
adam@1423:
adam@1423:
adam@1423: