package body Duration_Io is
    package Flt_Io is new Text_Io.Float_Io (Float);
    procedure Put (Item : in Duration;
                   Fore : in Text_Io.Field := 6;
                   Aft : in Text_Io.Field := 1;
                   Exp : in Text_Io.Field := 2) is
    begin
        Flt_Io.Put (Float (Item), Fore, Aft, Exp);
    end Put;
    procedure Put (File : Text_Io.File_Type;
                   Item : in Duration;
                   Fore : in Text_Io.Field := 6;
                   Aft : in Text_Io.Field := 1;
                   Exp : in Text_Io.Field := 2) is
    begin
        Flt_Io.Put (File, Float (Item), Fore, Aft, Exp);
    end Put;
end Duration_Io;