_
q
k4
kdb+
x 0:y write lines
{(!x)*/:!x}
(*/:).!'2#
*/:/
(*/:).
.
(*/:)
!'
&=:
!'2#
=intAtom
&matrix
(0 1 2 3 4;0 1 2 3 4)
5
+&=: