with Text_Io; use Text_Io;
with Ada.Command_Line;

procedure command is
  package ACL renames Ada.Command_Line;

begin

  for i in 1.. ACL.Argument_Count loop
     put_line ("Hi, I'm a command-line argument: " & ACL.Argument(i));
  end loop;
end;