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