<>;*$_=\-$i--for glob<>;print+($_=grep$y+0>($y=$$_),glob<>)&&0|1+1.443*log