fork download
  1. let say msg = sprintf "%s" msg
  2. let gen num =
  3. let rec g n a =
  4. match n with
  5. | i when i > 0 -> g (i-1) ("say \"" + a + "\"")
  6. | _ -> say a
  7. g num "Hello!"
Success #stdin #stdout 0.04s 11184KB
stdin
4
stdout
Standard output is empty