" <------------------------- sam082.txt ---------------------------->
" <--- Deal Function ----------------------------------------------->
&/p[3 ? R p # 'ABCDEFGH']Ep " should always produce 1
&/p[(Rp)?Rp]Ep " should always produce 1
)off