0while($_,@@)=sort@@,/\pL/?$'.!print$&:map s/$/{/r,<>