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