(format t"~[ABCDEFGHIJKLMNOPQRSTUVWXYZ~;Helloworld~;~21@{q~}~]"(position(read-char)"AHq")t)