with Putter;use Putter;

package body PutterServer is

   task body pantalla is

   begin
      loop
     select
        accept print (C : String; i : Integer) do
           Putter.Put_Line(C&""&Integer'Image(i));
        end print;
        or
        terminate;
     end select;
      end loop;
   end pantalla;

begin
   null;
end PutterServer;