with Ada.Text_IO;
 use Ada.Text_IO;
 procedure Code is 
 begin
	Put_Line ("OK");
 end Code;