Here's a sample of the file.input:
****BEG OF file.input****
F := IPF 19;
fp : File List F := open("file.out", "output");
x := (solve([[1,13,14,15],[1,11,18,4],[1,14,10,4],[1,6,17,16]] :: SquareMatrix(4, F),[13,8,6,14] :: Vector F)).particular;
if x case "failed" then x := [0,0,0,0];
write!(fp,x);
x := (solve([[17,13,14,15],[17,11,18,4],[17,14,10,4],[17,6,17,16]] :: SquareMatrix(4, F),[13,8,6,14] :: Vector F)).particular;
if x case "failed" then x := [0,0,0,0];
write!(fp,x);
x := (solve([[2,13,0,7],[15,7,6,13],[11,0,14,2],[12,3,2,10]] :: SquareMatrix(4, F),[15,15,4,12] :: Vector F)).particular;
if x case "failed" then x := [0,0,0,0];
write!(fp,x);
x := (solve([[14,3,12,15],[11,15,0,14],[17,16,1,13],[4,5,15,17]] :: SquareMatrix(4, F),[10,10,12,6] :: Vector F)).particular;
if x case "failed" then x := [0,0,0,0];
write!(fp,x);
x := (solve([[3,8,10,2],[8,14,16,0],[9,5,12,14],[5,2,1,5]] :: SquareMatrix(4, F),[15,8,11,3] :: Vector F)).particular;
if x case "failed" then x := [0,0,0,0];
write!(fp,x);
)sys sleep 1
close! (fp);
****END OF file.input****
And the file.out:
****BEG OF file.out****
(5 8 8 14)
(7 8 8 14)
(18 12 1 10)
(9 15 11 2)
(18 2 4 0)
(4) -> (4) ->
(5) -> (6) -> (6) ->
(7) -> (7) ->
(8) -> (9) -> (9) ->
(10) -> (10) ->
(11) -> (12) -> (12) ->
(13) -> (13) ->
(14) -> (15) -> (15) ->
(16) -> (16) ->
(17) -> (18) -> (18) ->
(19) -> (19) -> (19) ->
(20) ->
****END OF file.out****