n,*a=$<.read.split.map &:to_i
n-=1if n==a.pop while a[0]
p n