package body Compk8 is
    function K8 return Integer is
    begin
        return 8;
    end K8;
end Compk8;