{ Component 2 Compilation Unit - Source on SIX1.PA2 }

component six1c2;
  segment procedure bb;
    begin
      write(header,'bb');
      level := increment(level);
      cc;
    end; { bb }
  segment procedure cc;
    begin
      write(header,'cc');
      level := increment(level);
    end; { cc }

  begin
  end. { six1c2 }