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