Another interesting pass to the center.

sdr> /program=Program.A2
A2
sdr> heads lead right
| 4B>  3G<  1B>  2G<
| 
| 4G>  3B<  1G>  2B<
sdr> veer left
| 4B>  1B>
| 
| 4G>  1G>
| 
| 3G<  2G<
| 
| 3B<  2B<
sdr> fan the top
| 3B^  4G^  3Gv  4Bv  2B^  1G^  2Gv  1Bv
sdr> as couples ends cross fold
|           4Gv  3Bv
| 
| 3Gv  4Bv  2B^  1G^
| 
| 1B^  2G^
sdr> pass to the center
|           1Gv  2Bv
| 
| 1B^  2G^  4Gv  3Bv
| 
| 4B^  3G^
sdr> /exit