Here's how I'd probably approach this:
exp=:[: (#~ 0 ~: 1&{"1)@; <@(0&{,. 1&{ ([EMAIL PROTECTED],. (] +//. ["0),. [* [EMAIL
PROTECTED]) 2&}.)"1
(t2-:exp)t1
1I particularly like that this uses ["0 and monadic = -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
