package body Compk14 is
    function K14 return Integer is
    begin
        return 14;
    end K14;
end Compk14;