do i = 1 to 5;
   put skip edit (('*' do j = 1 to i)) (a);
end;