s/.//s,print for sort map{chr(length).$_}<>