(doseq(s(asdf::split(read-line)()"1"))(princ(int-char(+(length s)(#1=char-int(char" `cfilosv"(-(#1#(char s 0))48)))))))