package Compk1 is
    function K1 return Integer;
end Compk1;