(some println(sort-by #(str(+(count%)9)%)(take-while type(repeatedly read-line))))