here is another take:
drag=:#~ (#^:_1 [: }:@(-~ 1&|.) [: I. ,&1)@([EMAIL PROTECTED]:"1 [: {. 0 {. ])
this one is based on #^:_1/# rather than {, which might be a tad faster.
_________________________________________________________________
Visit MSN Holiday Challenge for your chance to win up to $50,000 in Holiday
cash from MSN today!
http://www.msnholidaychallenge.com/index.aspx?ocid=tagline&locale=en-us
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
