open F, $0;
while(<F>){;}
print $.;