$/=+<<words;say first $1>=*,map ($/[2..*]X>*).sum,^402