let print_digest f x = pp_print_string f (Digest.to_hex x)