(on k(tokens(readline)#\1)(writeb:if(is(= d(-(int k.0)48))0)32(+ d d len.k(if(> d 7)91 90)d)))