Module example =
Begin

External f,g;

Structure bytearray[i,j] = [i*j](.bytearray+(.i-1)*j-1+.j)<0,8>;

Own bytearray a[8,8];

Routine r =
Begin
    Decr i From 8 To 1 Do
	Decr j From 8 To 1 Do
	    If .i Eql .j Then
		a[.i,.j] = 0
	    Else If .i Gtr .j Then
		a[.i,.j] = f(.i+.j)
	    Else
		a[.i,.j] = g(.i+.j);
End;

End
Eludom