RosettaCodeData/Task/Loops-For/F-Sharp/loops-for.fs

9 lines
134 B
Forth

#light
[<EntryPoint>]
let main args =
for i = 1 to 5 do
for j = 1 to i do
printf "*"
printfn ""
0