(loop(format t"~A
"(if(<(setf s(read-line)l(-(length s)4))1)-1(count()(map'list'equalp(format()"li~V@{n~}ux"l t)s)))))