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