RosettaCodeData/Task/Repeat-a-string/Standard-ML/repeat-a-string-1.ml

fun string_repeat (s, n) =
  concat (List.tabulate (n, fn _ => s))
;