with PutterServer; use PutterServer;
procedure PutterClient is

   task type a;
   task body a is
   begin
      for i in 0..5 loop
     pantalla.print("Tarea A: ",i);
   end loop;

   end a;

   type Ref_a is access a;
   Y:Ref_a:= new a;

   task type b;
   task body b is
   begin
      for i in 0..5 loop
     pantalla.print("Tarea B: ",i);
   end loop;

   end b;

   type Ref_b is access b;
   X:Ref_b:= new b;

   task type c;
   task body c is
   begin
      for i in 0..5 loop
     pantalla.print("Tarea C: ",i);
   end loop;

   end c;

   type Ref_c is access c;
   Z:Ref_c:= new c;

begin
   null;
end PutterClient;