anchor.diff:  // foo=bar&baz=qux&zap=zazzle
   let decodeCookie (text:string) = 
       let parts = text.Split('&')
  -    parts |> Seq.map (fun x -> x.Split('=')) |> Seq.map (fun ps -> (ps.[0], ps.[1])) |> Map.ofSeq
  +    parts |> Seq.map (fun x -> x.Split('=')) |> Seq.map (fun ps -> (ps.[0], ps.[1])) |> Seq.toArray
   
  -let encodeCookie (map:Map<string,string>) : (string) =
  +let encodeCookie (map:List<string *string>) : (string) =
       map
  -    |> Seq.map (fun kvp ->
  -        let key = kvp.Key.Replace("&", "").Replace("=", "")
  -        let value = kvp.Value.Replace("&", "").Replace("=", "")
  +    |> Seq.map (fun (k, v) ->
  +        let key = k.Replace("&", "").Replace("=", "")
  +        let value = v.Replace("&", "").Replace("=", "")
           key + "=" + value)
       |> Seq.reduce (fun a b -> a + "&" + b)
   
  
positive.code: ﻿open System
  open System.IO
  open System.Security.Cryptography
  
  let toByte (char:char) : (byte) =
      byte(char)
  
negative.code:     let bytesRead = cryptoStream.Read(result, 0, bytes.Length)
      result
  
  let encryptProfile (key:byte[]) (map:List<string * string>) : (byte[]) =
      let blockSize = 16
      let iv = Array.zeroCreate<byte> blockSize
      let encodedCookie = encodeCookie map
  