var i,n,s:word;a:array[0..999]of word;begin
repeat
inc(n);readln(a[n])until eof;repeat
inc(i);s:=1;for n:=1to n do s:=s+ord(a[i]<a[n]);writeln(s)until i=n end.