RosettaCodeData/Task/Loops-For/Icon/loops-for.icon

procedure main()
every i := 1 to 5 do {
   every 1 to i do
      writes("*")
   write()
   }
end