PROGRAM Main
    USE Summer
    IMPLICIT NONE
    CALL A
    CALL B
    CALL A
    CALL B
    CALL A
    CALL A
    CALL C
    CALL D
END PROGRAM Main