with Ada.Command_Line;       use Ada.Command_Line;
with Ada.Strings.Unbounded;  use Ada.Strings.Unbounded;
with Ada.Strings;            use Ada.Strings;
with Ada.Text_IO;            use Ada.Text_IO;
  procedure testcmdline is
    TextLine : unbounded_string;
    begin
      TextLine := to_unbounded_string(argument(1));
      put_line(to_string(TextLine));
    end testcmdline;