get;say [*] ([+] map *%3>0,get.words)xx 3