anchor.diff:      let cleartext = DecryptAES record.ciphertext bundle.encryption_key (record.iv |> Convert.FromBase64String)
   
   module Collections =
  +    open Secrets
  +    open ServerAPI
   
       let s = Secrets.secrets
       let url = clusterURL s.username
  
positive.code:                              username = (secrets'?username).AsString()
                               password = (secrets'?password).AsString()
                               encryptionpassphrase = (secrets'?encryptionpassphrase).AsString() }
  
  // Utilities
  [<AutoOpen>]
  
negative.code:         |> fun x -> x.[0].AsString()
          |> Convert.FromBase64String
      let cleartext = [|for b in bm do yield DecryptAES b.ciphertext key (b.iv |> Convert.FromBase64String) |]
  
  
      let cleartext' = 
          cleartext
          |> Array.map keepAsciiPrintableChars 
          |> Array.map JsonValue.Parse
  
      let x = 
          cleartext'.[0] 
          |> fun x -> x.TryGetProperty "keyword"
          |> fun x -> match x with | Some x -> x.AsString() | _ -> ""
  
      let x' = 
          cleartext'.[0] 
          |> fun x -> x.TryGetProperty "parentName"
          |> fun x -> match x with | Some x -> x.AsString() | _ -> ""