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)