Perhaps not surprisingly:
q=:1;(i.20),20+1r10000
roots=: 1&{::@p.
p=:p. q
r=:roots p
>./|p&p.r
0-- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
