with(linalg):

fd:=fopen("../data/pentafile.txt",READ);
size:=fscanf(fd,"%d\n")[1];
m:=matrix(size,size);
for i from 1 to size do
	for j from 1 to size do
		m[i,j]:=fscanf(fd,"%g\n")[1];
	end do;
end do;
fclose(fd);

im:=inverse(m);

print(im);