procedure main()
every i := 1 to 5 do
	write(repl("*", i))
	
every write(repl("*", 1 to 5))
end