@run ia1 ~+date( @goto_cell ia1~ @restore screen~ @run a13 @restore screen ~a1[cur_col,cur_row+i-1]=i:next i~ @goto_cell ia1 ~