get;say 30*grep .sum>=*~0,@($_=words)