let pp_t fmt { sequence; boot; crypto_random; inode; device; microsecond; pid; deliveries; } =   pp fmt "{@[<hov>sequence = %a;@ boot = %a;@ crypto_random = %a;@ inode = %a;@ device = %a;@ microsecond = %a;@ pid = %a;@ deliveries = %a@]}"     (pp_option Format.pp_print_int) sequence     (pp_option Format.pp_print_int) boot     (pp_option Format.pp_print_int) crypto_random     (pp_option Format.pp_print_int) inode     (pp_option Format.pp_print_int) device     (pp_option Format.pp_print_int) microsecond     (pp_option Format.pp_print_int) pid     (pp_option Format.pp_print_int) deliveries