let max_list (l:int list) (to_reach:int) = let max_val = List.fold_left (max) 0 l in Array.to_list (Array.make (to_reach/max_val) max_val)