program new;

procedure Icle; forward;

procedure Test;
begin
  Writeln('Test');
  Icle();
end;

procedure Icle;
begin
  Writeln('Icle');
  Test();
end;

begin
  Test();
end.