get;say sum map {$^a*$^b},+<<words.sort