let run () =
  print_string Common.header;
  Common.meat_print "CLEANING MEAT STORES..";
  Common.do_cmd "nh clean all" |> ignore;
  print_string Common.footer