//  5075 Grandsire Caters
//  Composed by S A Bond after Tyler

9 bells

comp=b,p,s,b,2p,line,
    A,
    D,
    b,p,2b,p,line,
    A,
    s,2p,b,p,line,
    p,s,2p,b,2p,line,
    C,D,
    b,p,b,3p,line,
    3b,2p,line,
    2b,s,2p,line,
    3b,2p,line,
    3b,fin

A=3b,2p,line,C
C=2b,s,2p,line,
    2(3b,2p,line),
    2b,s,2p,line

D=b,s,p,b,line,
    b,2s,2p,line,
    2(3b,2p,line),
    s,b,p,b,p,line,
    2(s,2b,2p,line,s,3b,line),
    s,2b,2p,line,
    3s,b,line,
    s,p,b,p,b,p,line,
    A

BBlock=p,s,2b,line,
    2(s,2b,2p,line,s,3b,line),
    s,2b,2p,line,
    4s,line,
    s,p,b,p,b,p,line,
    ABlock

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

g=+3.1.9,&1.9.1.9.1.9.1
prove comp