apl>" <------------------------- sam082.txt ---------------------------->


apl>" <--- Deal Function ----------------------------------------------->


apl>&/p[3 ? R p # 'ABCDEFGH']Ep " should always produce 1

1

apl>&/p[(Rp)?Rp]Ep " should always produce 1

1

apl>)off