(while(display(integer->char(logand(char->integer(read-char))-5))))