set_ns(rosettacode);

add_var({str},s)_value();
add_var({str},output);

add_for({int},i)_from(1)_uptoand(5)_inc()
    with_var(s)_v();
    add_for({int},j)_from(0)_upto([i])_inc()
        with_var(s)_calc([s]&="*");
    ;
    with_var(output)_calc(&=[s]&\n);
;

me_msg([output]);

reset_ns[];