let make length c = let rec loop n acc = if n >= length then acc else loop (n + 1) (c :: acc) in loop 0 []