read USAP:
ApplyUmSc(SAPUS2,q,44,{x[1],x[2],x[3]})[2];
quit: