program asdfadf；

var asms:array[1..200] of string；

n,i,j,k,h,t,l:integer；

s:string；

f:array[1..200] of boolean；

begin

readln(n)；

for i:=1 to n do readln(asms[i])；j:=0；h:=0；

for i:=1 to n do f[i]:=false；

k:=0；

repeat

inc(j)；

if copy(asms[k],1,3)=jmp then

if copy(asms[k],1,4)<>jmps then

if not(f[k]) then begin h:=5；

l:=length(asms[k])；

s:=copy(asms[k],h,l-4)；

val(s,t,i)；

f[k]:=true；

k:=t；

end

else if f[k] then begin dec(j)；break；end

else if asms[k]= then begin dec(j)；break；end

else begin inc(k)；f[k]:=true；end；

until i=-222；

write(j)；

end.