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