open Trace
open Main.Display

let toplevel ~(display_format : string) (x : string result) =
  let display_format =
    try display_format_of_string display_format
    with _ -> (
        Format.printf "bad display format %s, try looking at DISPLAY_FORMAT in the man (--help)." display_format ;
        failwith "Display format"
      )
  in
  Format.printf "%a" (formatted_string_result_pp display_format) x