DATA 6#0 6#10 6#20 6#25 6#27.5 6#29 6#30 6#30.5 6#31 6#31.5 6#32 6#32.5 A
DATA 68#0 4#1 B
COUNT A >= 0 NUMA
SUM A SUMA
COUNT B >=0 NUMB
SUM B SUMB
PRINT NUMA SUMA NUMB SUMB 
COPY 1000000 trials
REPEAT trials
   SHUFFLE B output
   TAKE output 1,72 replay
   MULTIPLY replay A product
   SUM product total
   DIVIDE total SUMB AVERAGE
   IF AVERAGE >= 31.75 
	SCORE 1 counter
   END
END
SUM counter total
DIVIDE total trials p-value
PRINT p-value