C := Creation_Chaine( "Test 'Put' : OK" ) ;
Put(C) ;
New_Line ;