for(1..1e6){$k++if sqrt(rand()**2+rand()**2)<1}print $k*4/1e6