DATA 200#0 200#5 200#10 200#15 200#20 200#25 200#27 200#28 200#29 200#30 200#31 200#31.5 200#32 200#32.5 A
DATA 2792#0 8#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,2800 replay
   MULTIPLY replay A product
   SUM product total
   DIVIDE total SUMB AVERAGE
   IF AVERAGE >= 27.5625 
	SCORE 1 counter
   END
END
SUM counter total
DIVIDE total trials p-value
PRINT p-value