procedure big_block_of_code;
  begin
    writeln('this is printed');
    writeln('from a subroutine');
    writeln('called big_block_of_code');
    writeln('and it is quite long')
  end;

begin
  big_block_of_code;
  big_block_of_code;
end.