APL2: compress with nested arrays?

I am looking for an APL2-expression which solves the following

problem:

+-------------------------+

| +-----+ +-----+ +-----+ |

A<-| |0 2 0| |1 0 0| |0 2 3| |

| +-----+ +-----+ +-----+ |

+-------------------------+

I need an expression, which generates from the array 'A' the following

array, whithout any loop, of course:

+---------------+

| +-+ +-+ +---+ |

| |2| |1| |2 3| |

| +-+ +-+ +---+ |

+---------------+

I thought, I could use compression, but it doesn't work:

B<-~A=0

C<-B/A or C<-B/{each}A or something like that.

Is there a simple solution for this problem?

Thanks Elmar.

--

Institute for Information Technology Systems | Tel: +49 231 755 4513

University of Dortmund | Fax: +49 231 755 3251

44221 Dortmund / Germany