x ^ 12 + x ^ 2 + 1 , x ^ 18 + x ^ 3 + 1 , x ^ 15 + x^ 14 + x ^ 5

input := FileTools:-Text:-ReadFile("data.txt");

"x ^ 12 + x ^ 2 + 1 , x ^ 18 + x ^ 3 + 1 , x ^ 15 + x^ 14 + x ^ 5"

R := StringTools:-DeleteSpace(input);

"x^12+x^2+1,x^18+x^3+1,x^15+x^14+x^5"

R := StringTools:-Split(R,",");

["x^12+x^2+1", "x^18+x^3+1", "x^15+x^14+x^5"]

R := parse~(R);

[x^12+x^2+1, x^18+x^3+1, x^15+x^14+x^5]