let pp_filename pp_experimental fmt { time; id; host; parameters; info; } =
pp fmt "{@[<hov>time = %d;@ id = @[<hov>%a@];@ host = %S;@ parameters = @[<hov>%a@];@ info = @[<hov]%a@]@]}"
time
pp_id id
host
pp_map parameters
(pp_info pp_experimental) info