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