(loop(set'a(read-line))(format t"~[h~]~a
"(position #\t a)a))