select/[null;f;t`a`b`c]
  where (select x y z is x@y@z@x)
  where (t is .+[`a`b`c`d;draw 4 1000000(10)])
  where f is [g;h;i] 
    where (g is &0<) 
    where (h is &2>) 
    where i is &2=

\

t:.+(`a`b`c`d;4 1000000_draw 10)
f:(&0<;&2>;&2=)
i:{x y z x}/[_n;f;t`a`b`c]