let pp_print_modes fmt (top, subs) = Format.fprintf fmt "@[<v>top level:@ %a@ subsystems:@ @[<v>%a@]@]" pp_print_modes top (pp_print_list pp_print_sys_modes "@ ") subs