module copy { # simplest operator possible - identity matrix #% _lop (x, y) if (adj) x += y else y += x }