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