anchor.diff:          let url = (clusterURL username) + "1.1/" + username + "/storage/crypto/keys"
           fetchUrlResponse url "GET" (Some (username, password)) None None None
   
  +
  +
       type CryptoKeysPayload = { iv         : string
                                  ciphertext : string
                                  hmac       : string }
  
positive.code:     let bytesToString (b : byte[]) = b |> Array.map (char) |> fun cs -> new string(cs)
      let bytesToHex (b : byte[]) = b |> Array.map (sprintf "%x")
  
      
      // Cryptography
  
  
negative.code:     if ff_skb'' <> ff_skb''' then 
          failwith "syncKeyBundle failed"
  
      
      // writeSecretKeysToDisk
  
      try
          writeSecretKeysToDisk secrets.username secrets.password None
      with | _ -> failwith "writeSecretKeysToDisk failed"
  
  
  module CryptoKeys =
      open Secrets
      open Utilities
  
      let sk = readSecretKeysFromDisk None |> JsonValue.Parse
      let sk_pl = (sk?payload).AsString() |> JsonValue.Parse
  
  