let (op,docAddress) =
    Contract.create
      ~storage: (fileHash,userAddress,Set,Set)
      ~manager:manager
      ~spendable:false
      ~delegatable:false
      ~delegate:(None)
      ~amount:0tz (contract Document)
  in

  let userDocuments = match Map.find userAddress storage.usersDocuments with
    | None -> Set
    | Some docSotrage -> docSotrage
  in
  let userDocuments = Set.add docAddress userDocuments in