s/.//s,print for sort map{pack'c/a',$_}<>