adamc@459: cookie c : string
adamc@459:
adamc@459: fun main () : transaction page =
adamc@459: setCookie c "Hi";
adamc@462: so <- requestHeader "Cookie";
adamc@459: case so of
adamc@459: None => return No cookie
adamc@459: | Some s => return Cookie: {[s]}