package Casesi is
  procedure Try (X : Natural);
end;