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