let string_repeat s n =
  Array.fold_left (^) "" (Array.make n s)
;;