void exit(int c, string f, mixed ... a) {
   werror(f,@a);
   predef::exit(c);
}

int main(int c, array v) {
   int i, j;

   if (c<2) exit(1, "Need one argument.\n");

   int n=(int)v[1];
   array M=allocate(n,allocate(n));

   for(i=0; i<n; i++)
     for(j=0; j<n; j++)
       M[i][j]=i+j+2.5;

   float r;
   for(i=0; i<n; i++)
     for(j=0; j<n; j++)
       for(int k; k<n; k++)
         r+=M[i][k]*M[k][j];

   exit(0, "%f\n", r);
}