for[i -999 0][pr map[(if(ascii ?)>i[seti ascii ? ?]"")]rw]bye