package Compk18 is
    function K18 return Integer;
end Compk18;