SET TERM ^ ;

CREATE OR ALTER PACKAGE TEST_PACKAGE
AS
BEGIN
    FUNCTION MAIN() RETURNS INTEGER;
END^

RECREATE PACKAGE BODY TEST_PACKAGE
AS
BEGIN
    FUNCTION MULT(ARG INTEGER) RETURNS INTEGER
    AS
    BEGIN
        RETURN :ARG * 2;
    END

    FUNCTION MAIN() RETURNS INTEGER
    AS
    DECLARE VARIABLE VAL INTEGER;
    BEGIN
        :VAL = TEST_PACKAGE.MULT(10);

        RETURN TEST_PACKAGE.MULT(100);
    END
END^

SET TERM ; ^