(setq b())(setq e 1)(loop(setq c(read-char))(if(char= c #\T)(setq e 0))(setq b(or(char= c #\K)(and b(> e 0))))(princ(if(or(= e 0)b)#\a c))(setq e(mod(1+ e)51))