make " array 841 for[i rc 1][for[j 0 i][setitem 840*j/i+1 :(word j "/ i "\
)]]repeat 841[type item # :]bye