anchor.diff:      // writeCryptoKeysToDisk
   
       try
  -        writeCryptoKeysToDisk secrets.username secrets.password None
  +        writeCryptoKeysToDisk Secrets.secrets.username Secrets.secrets.password None
       with | _ -> failwith "writeCryptoKeysToDisk failed"
   
   
  
positive.code:             [||]
  
  
      type SyncKeyBundle = { encryption_key : byte[]; hmac_key : byte[] }
  
      let syncKeyBundle username key =
          let info = "Sync-AES_256_CBC-HMAC256" + username
          let hmac256 = new HMACSHA256(key)
  
negative.code:     let stringToBytes (s : string) = s.ToCharArray() |> Array.map (fun x -> (byte) x)
      let bytesToString (b : byte[]) = b |> Array.map (char) |> fun cs -> new string(cs)
      let bytesToHex (b : byte[]) = b |> Array.map (sprintf "%x")
  
      let inline isSubset set subset = 
          let set' = set |> Set.ofSeq
          let mutable res = 1
          for c in subset do
              if set'.Contains c then res <- 1 * res else res <- 0 * res  
          if res = 1 then true else false
  
      let removeChars (chars : string) (x : string) = 
          let set = chars.ToCharArray() |> Set.ofArray
  