sim:{4*(+/{~1<+/(2_draw 0)^2}'!x)%x}

   sim 10000
3.103

   sim'10^!8
4 2.8 3.4 3.072 3.1212 3.14104 3.14366 3.1413