read USAP:
gu1:=SAPUmSc(1,x,q): 
gu:=ApplyUmSc(gu1,q,160,{x[1]})[2]:
quit: