program trimdiana (da, output);
const
   trimax = 8006000;
type
   base = (a,c,g,t);
   trianglearray = record
      data: array[0..trimax] of integer;
      lower: integer;
      upper: integer;
      side: integer;
      area: integer;
   end;
   trisquare = array[a..t,a..t] of trianglearray;
var
   da: text;
procedure writeprism(var dianalysis: text; dataprism: trisquare);
begin
   writeln(dianalysis,'anything goes here');
end;
procedure themain(var da: text);
var
  dataprism: trisquare;
begin
   writeprism(da,dataprism);
end;
begin
   themain(da);
end.