(loop(princ(int-char(mod(*(1+(char-int(read-char)))7)256))))