put edit ((('*' do j = 1 to i)do i=1 to 5))(a);  /* no new line */