package body Compk18 is
    function K18 return Integer is
    begin
        return 18;
    end K18;
end Compk18;