(loop(princ(if(eql(search(set'l(read-line))#0="1 2 3 4 5 6 Do it!!
")0)(subseq #0#(length l))"Miss...
")))