let gen num =
let rec g n a =
match n with
| i when i > 0 -> g (i-1) ("say \"" + a + "\"")
| _ -> say a
g num "Hello!"
bGV0IHNheSBtc2cgPSBzcHJpbnRmICIlcyIgbXNnCmxldCBnZW4gbnVtID0gCiAgICBsZXQgcmVjIGcgbiBhID0KICAgICAgICBtYXRjaCBuIHdpdGgKICAgICAgICB8IGkgd2hlbiBpID4gMCAtPiBnIChpLTEpICgic2F5IFwiIiArIGEgKyAiXCIiKQogICAgICAgIHwgXyAtPiBzYXkgYQogICAgZyBudW0gIkhlbGxvISI=