with H000001;
with H000002;
with H000003;
with H000004;
with H000005;
with H000006;
with H000007;
--with H000008;
with H000009;
with Rational_Io;
procedure Chapter_13 is
begin
    H000001;
    H000002;
    H000003;
    H000004;
    H000005;
    H000006;
    begin
        H000007;
    exception
        when Program_Error =>
            Rational_Io.Put_Line
               ("H000007 raised program error due to incorrect code");
    end;
    --H000008;
    Rational_Io.Put_Line
       (Item => "H000008 did not compile - component clause too small");
    H000009;
end Chapter_13;