procedure Gnat.Io.D is C:Character;Begin Get(C);If C<'~'Then Put(C&C);D;End If;End;