Programmer's ROM - The Computer Language Library/programmersrom.iso/ada/piwg/z000302.ada

Text File | 1988-05-03 | 2.3 KB | 81 lines

with text_io; use text_io;
package package_1 is
    package package_1s is  new float_io ( float );
    end package_1;
with package_1; use package_1;
package package_2 is
    package package_2s renames package_1s;
    end package_2;
with package_2; use package_2;
package package_3 is
    package package_3s renames package_2s;
    end package_3;
with package_3; use package_3;
package package_4 is
    package package_4s renames package_3s;
    end package_4;
with package_4; use package_4;
package package_5 is
    package package_5s renames package_4s;
    end package_5;
with package_5; use package_5;
package package_6 is
    package package_6s renames package_5s;
    end package_6;
with package_6; use package_6;
package package_7 is
    package package_7s renames package_6s;
    end package_7;
with package_7; use package_7;
package package_8 is
    package package_8s renames package_7s;
    end package_8;
with package_8; use package_8;
package package_9 is
    package package_9s renames package_8s;
    end package_9;
with package_9; use package_9;
package package_10 is
    package package_10s renames package_9s;
    end package_10;
with package_10; use package_10;
package package_11 is
    package package_11s renames package_10s;
    end package_11;
with package_11; use package_11;
package package_12 is
    package package_12s renames package_11s;
    end package_12;
with package_12; use package_12;
package package_13 is
    package package_13s renames package_12s;
    end package_13;
with package_13; use package_13;
package package_14 is
    package package_14s renames package_13s;
    end package_14;
with package_14; use package_14;
package package_15 is
    package package_15s renames package_14s;
    end package_15;
with package_15; use package_15;
package package_16 is
    package package_16s renames package_15s;
    end package_16;
with package_16; use package_16;
package package_17 is
    package package_17s renames package_16s;
    end package_17;
with package_17; use package_17;
package package_18 is
    package package_18s renames package_17s;
    end package_18;
with package_18; use package_18;
package package_19 is
    package package_19s renames package_18s;
    end package_19;
with package_19; use package_19;
package package_20 is
    package package_20s renames package_19s;
    end package_20;