with Ada.Command_Line, Ada.Text_Io;
use Ada;
procedure Main is
   Un_Int : Integer := 0;
begin
   if Command_Line.Argument_Count /= 1 then
      Text_Io.Put_Line("Erreur d'arguments" );
   else
      begin
         Un_Int := Integer'Value(Command_Line.Argument(1));
         for I in 2..Integer'Image(Un_Int)'Length loop
            Text_Io.Put(Integer'Image(Un_Int)(I));
            exit when Integer'Image(Un_Int)'Length = I;
            Text_Io.Put('.');
         end loop;
      exception
         when Constraint_Error =>
            Text_Io.Put_Line("Argument invalide." );
      end;
   end if;
end Main;