get;$!=sort +<<words.unique;say min map {[R-] $![^2+$_]},^+^-$!