<>;$@[0]=~s/\w//?print$&:shift@@while@@=sort@@,map s/$/{/r,<>