read FOATA:

pi:=[6,2,7,1,10, 11,3,5,4,8,12,9]:

DF1vv(pi):

quit: