Here is a slightly more concise version of Oleg's approach: boxo=: 4 : ',/((x ,: x&+)"1 -~/\@,:"1 y&-"1) y*=i.#y'/
FYI, -- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
