restart;
read(`solution.txt`);
Pos := simplex[feasible](answer,NONNEGATIVE,'answer_new','answer_trans');
save(Pos,answer_new,answer_trans,`feasible.txt`);
done