//  5129 Grandsire Caters
//  Composed by S A Bond

9 bells

comp=b,p,s,b,p,q,line,
BBlock,
s,p,p,s,p,line,
p,s,s,b,p,line,
s,b,s,b,sp,line,
s,s,s,s,sp,line,
p,p,s,b,b,line,rule,
s,b,p,p,s,line,
b,p,p,s,b,line,
b,s,b,b,sp,line,
b,p,p,p,s,q,q,line,
(ToHSCourse=b,p,b,p,p,q,line),(BFinish=AFinish),
BBlock

ABlock=rule,3b,2p,line,2b,s,2p,line,2(3b,2p,line),2b,s,2p,line,rule
AFinish=rule,3b,2p,line,2b,s,2p,line,3b,2p,line,3b,fin
BFinish=ABlock
ToHSCourse=b,p,b,b,p,line

BBlock=ABlock,
b,s,p,b,sp,line,
s,p,s,p,b,line,
b,b,p,p,p,q,line,
b,b,b,p,p,line,
b,b,b,p,p,line,
b,p,s,b,p,line,
s,s,s,p,p,line,
p,b,b,b,p,line,
ABlock,
ToHSCourse,
BFinish

start="1 2 3 4 5   @","---------------------"

p=g,+9.1,"  \"
q=g,+9.1
b=g,+3.1,"- \"
s=g,+3.123,"s \"
sp="  \"
fin={ 2p, echo "     (@)", true: }, g,+9
line="  @"
rule="---------------------"

g=+3.1.9.1.9.1.9.1.9.1.9.1.9.1.9.1

prove comp