M: [[1, 2, 3], [4, 8, 12], [9, 18, 27]];

write_data(M, "daneZ.txt");

L: read_list("daneZ.txt");

L^2;

write_data(L, "wynik.txt");