let make_string (n:int) (s:string) : string= let rec aux (i:int) (acc:string) = if i > n - 1 then acc else aux (i+1) (acc ^ s) in aux 0 ""