p=:(<.)`(0.5"_ +<.)`(>:@<.)
c=:((0.3 0.7)&I.)@([-<.)
r=:((p@.c)@(%&2))"0
s=:((>:)@(i.&1){.[) r^:(i.100) ".>{.;:(1!:1)3
echo each 0j1": each <"0 s