//  5031 Spliced Caters and Royal (2m)
//  Composed by S A Bond
//  2591 Grandsire Caters, 2440 Bristol Surprise; 9 com; atw

10 bells

comp=7Br,Brb,line,
b,p,s,b,p,line,
p,3b,p,line,
b,p,s,b,p,line,
6Br,2Brs,6Br,Brb,line,
b,2p,b,s,line,
b,p,2b,p,line,
3b,2p,line,
b,s,b,s,line,
b,2p,b,2p,line,
s,2p,s,b,line,
3p,s,p,line,
Brb,7Br,line,
Brs,5Br,Brs,line,
b,2p,s,2p,line,
b,2s,2p,line,
s,p,s,p,b,line,
s,p,b,p,b,2p,line,
s,3p,b,line,
b,s,2p,b,p,b,line,
3Br,Brb,4Br,line,
3Br,Brb,3Br,line,
b,s,b,s,p,line,
b,s,s,p,line,
b,b,p,b,b,line,
s,2p,s,p,line,
7Br,Brb,line,
s,2p,s,p,line,
b,p,s,b,p,line,
3p,b,s,p,line,
3b,2p,line,
3b,2p,line,
3p,2b,line,
3p,2b,3p,fin

Bristol=&x5x4.5x5.36.4x7.58.6x6.7x6x1
Br=Bristol,+10,"Bristol     @"
Brb=Bristol,+4,"Bristol   - @"
Brs=Bristol,+234,"Bristol   s @"

p=g,+9.1,"Grandsire   @"
b=g,+3.1,"Grandsire - @"
s=g,+3.123,"Grandsire s @"
g=+3,&1.9.1.9.1.9.1.9
fin={ p, echo "Grandsire  (@)", true: }, g,+9

line="----------------------"

prove comp