get;say sum keys ($_=+<<words)∖(@$_ X+1)