for i=1to 400a$=str$((i*i+i+2)/2)
s$=""
for j=1to len(a$)?s$;
for k=1to val(mid$(a$,j,1))?":";next
s$=" "next
?next