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