For each row from 1 to 5 do
[
    From 1 to row do [Print: "*";];
    Print: "\n";
];