(format t"~[24~;3~;5
8
58~]"(-(length(read-line))16))