(ignore-errors(loop(incf(getf /(intern(read-line))0))))(apply'format t"~@{~v@{~a
~1:*~}~*~}"(reverse /))