package myatexit is
  procedure atexit with Convention => C;
end myatexit;