Have you tried the 13 : feature like this?
13 : '(x >.@* <:@# y){/:~y'
([ >.@* [: <:@# ]) { [: /:~ ]-- (B=) <-----my sig Brian Schott ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
