//  1280 Spliced Surprise Major (4m)
//  Composed by S A Bond
//  4m: 384 Superlative, 320 Yorkshire, 288 Cambridge, Lincolnshire; 27 com.

8 bells

lh =
finish = lh, "\n  @"
bob = +4
single = +234
print_p = print_method
print_b = print_method, "\n- @ \"
print_s = print_method, "\ns @ \"

print_S = "S \"
S = (method = lh, S_pn, S_lh, (print_method = print_S)), method
S_pn = &-36-14-58-36-14-58-36-78
S_lh = (p = (lh = S_p), S_full_lead), (b = (lh = S_b), S_full_lead),
                 (s = (lh = S_s), S_full_lead), (lh=S_p)
    S_full_lead = (p = lh, S_pn, (lh = S_p)), (b = lh, S_pn, (lh = S_b)),
                        (s = lh, S_pn, (lh = S_s))

    S_p = &12, print_p
    S_b = bob, print_b
    S_s = single, print_s

    print_C = "C \"
    C = (method = lh, C_pn, C_lh, (print_method = print_C)), method
    C_pn = &-38-14-1258-36-14-58-16-78
    C_lh = (p = (lh = C_p), C_full_lead), (b = (lh = C_b), C_full_lead),
                 (s = (lh = C_s), C_full_lead), (lh=C_p)
    C_full_lead = (p = lh, C_pn, (lh = C_p)), (b = lh, C_pn, (lh = C_b)),
                        (s = lh, C_pn, (lh = C_s))
    C_p = &12, print_p
    C_b = bob, print_b
    C_s = single, print_s

    print_N = "N \"
    N = (method = lh, N_pn, N_lh, (print_method = print_N)), method
    N_pn = &-38-14-58-16-14-58-36-78
    N_lh = (p = (lh = N_p), N_full_lead), (b = (lh = N_b), N_full_lead),
                 (s = (lh = N_s), N_full_lead), (lh=N_p)
    N_full_lead = (p = lh, N_pn, (lh = N_p)), (b = lh, N_pn, (lh = N_b)),
                        (s = lh, N_pn, (lh = N_s))
    N_p = &12, print_p
    N_b = bob, print_b
    N_s = single, print_s

    print_Y = "Y \"
    Y = (method = lh, Y_pn, Y_lh, (print_method = print_Y)), method
    Y_pn = &-38-14-58-16-12-38-14-78
    Y_lh = (p = (lh = Y_p), Y_full_lead), (b = (lh = Y_b), Y_full_lead),
                 (s = (lh = Y_s), Y_full_lead), (lh=Y_p)
    Y_full_lead = (p = lh, Y_pn, (lh = Y_p)), (b = lh, Y_pn, (lh = Y_b)),
                        (s = lh, Y_pn, (lh = Y_s))

    Y_p = &12, print_p
    Y_b = bob, print_b
    Y_s = single, print_s

prove "  @ \", Y, C, b, S, Y, S, N, C, b, Y, N, S, C, S, Y, C, b, 7S, 2s, 2C, N, s, p,  C, b, Y, N, C, N, Y, N, s, p,
 C, 3Y, b, N, Y