@$_=glob<>for-1..1;print 1e-5*grep{@0<2*grep$0[$i++%@0]>$_,@1=sort{.5<=>rand}@1}1..1e5