Not very short, but works, I think:
|:,/1|:>4{.}.(2&":@*/,~ ,&' = '@(' ',[,' X ',] )&":/)&.>{{>: i."+ 5 9-- (B=) ---------------------------------------------------------------------- For information about J forums see http://www.jsoftware.com/forums.htm
