Импортировать данные из txt в Mathematica

Рассмотрим следующий список в mathematica:

a = {
   {
    {0, 0, 0}, {1, 0, 0}, {1, 1, 0}
    },
   {
    {0, 0, 1}, {1, 0, 1}, {1, 1, 1}
    }
   };

Теперь вызовите:

Export["test.dat", a]

, а затем

b = Import["test.dat"]

. Вы увидите, что в конец a не равно b . Следует ли мне рассматривать это как функцию или ошибку?

Кроме того, я хотел бы импортировать список в следующем формате: {P1, P2, P3 ..., Pn} где Pi = {v1, v2, v3, ..., vm} и каждый vi = {x, y, z} , где x, y,z - числа, представляющие координаты вершины vi . Это должен быть список многоугольников.

Как мне настроить мой файл .dat , чтобы я мог читать его с помощью Mathematica, и как мне его читать? Я попытался имитировать вывод Export ["test.dat", a] выше, но затем обнаружил другую проблему. Я нашел этот вопрос , но не смог заставить его ответить ...

Есть идеи? Заранее благодарим!