open Qptypes
open Sexplib

let to_md5 sexp_of_t t =
  sexp_of_t t
  |> Sexp.to_string
  |> Digest.string 
  |> Digest.to_hex
  |> MD5.of_string
;;