While not particularly concise, in part because of explicit overhead, another approach is: 3 :'+/,([-.-.)&y`'''''&>1 :'+/(u i.+/$y)/.y' M
-- Raul ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
