with Stringpack; use Stringpack;
procedure Tierwelt is

   task Hund;
   task body Hund is
   begin
      Print("wau");
      Print("wau");
   end Hund;

   task Katz;
   task body Katz is
   begin
      Print("miau");
   end Katz;

begin
   Print("hello world");
end Tierwelt;