let interval_list ?(comp = compare) ~bump ~min ~max () =
    let rec aux accu curr =
      if (comp curr max) > 0
      then accu
      else aux (curr::accu) (bump curr)
    in List.rev (aux [] min)