let preset lst =
    let _, (default, _) =
      List.fold_left max (List.hd !all) (List.tl !all)
    in
      (Settings.name, default) :: lst