<>;$a=<>;print$r+=$a<$_,$/for$r=1,<>