11 lines
238 B
Text
11 lines
238 B
Text
|
start_up = proc ()
|
||
|
|
po: stream := stream$primary_output()
|
||
|
|
|
||
|
|
for i: int in int$from_to(1, 5) do
|
||
|
|
for j: int in int$from_to(1, i) do
|
||
|
|
stream$putc(po, '*')
|
||
|
|
end
|
||
|
|
stream$putl(po, "")
|
||
|
|
end
|
||
|
|
end start_up
|