1;

function d=dud();

n=3;
d=zeros(n,n,n,n);

for i=1:n
  for j=1:n
    for k=1:n
      for l=1:n

	d(i,j,k,l)=rand();
      endfor
    endfor
  endfor
endfor

endfunction

while 0<1 d=dud(); endwhile