PROGRAM Main
    USE Summer_A
    USE Summer_B
    USE Summer_C
    USE Summer_D
    IMPLICIT NONE
    CALL A
    CALL B
    CALL A
    CALL B
    CALL A
    CALL A
    CALL C
    CALL D
END PROGRAM Main