repeat 100[apply[(pr ?[= 6 *]round ?/6 char 45-modulo ?+1 6 1)]rl]bye