%begin
  %integer m,n,o,p
  %integerarray  q(m:n, o:p)
  %integer i
  q((m+n)//2, (o+p)//2) = 42
  i = q((m+n)//2, (o+p)//2)
%endofprogram