//  5040 Cambridge Surprise Maximus
//  Composed by J Clatworthy

12 bells;

m = &-3-4-25-36-47-58-69-70-8-9-0-E;

SP = " \"
line =  "------------------------";
start = "B  M  W  H  @",line,reset;
finish=line;
reset = (Bcol=SP), (Mcol=SP), (Wcol=SP), (Hcol=SP);
lh = {/*T/: Bcol,2SP,Mcol,2SP,Wcol,2SP,Hcol,"  @",reset};

p = m,+2,lh;
b = m,+4,lh;
x = m,+8,lh;

B = (Bcol="-\"), repeat( {x, /??T/:   x, break; p} );
M = (Mcol="-\"), repeat( {b, /*T??/:  b, break; p} );
W = (Wcol="-\"), repeat( {b, /*T?/:   b, break; p} );
H = (Hcol="-\"), repeat( {b, /*T/:    b, break; p} );

prove 2H, W,H, M,W,H, B,2H, M,W, M,H, W, M,W,H;