"By golly" tests.

sdr> /program=Program.C3B
C3B
sdr> heads lead right
| 4B>  3G<  1B>  2G<
| 
| 4G>  3B<  1G>  2B<
sdr> circle left 1/4
| 4Gv  4Bv  1Gv  1Bv
| 
| 3B^  3G^  2B^  2G^
sdr> by golly
| 3B>  3G>  2B>  2G>
| 
| 4G<  4B<  1G<  1B<
sdr> hinge ; recycle
| 3Bv  4Gv  2Bv  1Gv
| 
| 3G^  4B^  2G^  1B^
sdr> by golly
| 3G>  4B>  2G>  1B>
| 
| 3B<  4G<  2B<  1G<
sdr> hinge ; trade the wave
| 4Gv  4B^  3Bv  3G^  1Gv  1B^  2Bv  2G^
sdr> recycle
| 3Gv  3Bv  2Gv  2Bv
| 
| 4B^  4G^  1B^  1G^
sdr> by golly
| 4B<  4G<  1B<  1G<
| 
| 3G>  3B>  2G>  2B>
sdr> /exit