program main
    implicit none
    integer n, lowest, now, i
    character(len=300):: s, first, end_

    read*, n, s
    s = trim(s)
    lowest=0; now=0
    do i = 1,n
        if(s(i:i) == '(')then
            now = now + 1
        else
            now = now - 1
        end if
        lowest = min(lowest, now)
    end do
    ! print*, now, lowest
    first = ''
    end_ = ''

    do i = 1, -lowest
        first = trim(first) // '('
    end do

    do i = 1, now-lowest
        end_ = trim(end_) // ')'
    end do

    print'(a)', trim(first) // trim(s) // trim(end_)

    
end program
; ModuleID = 'FIRModule'
source_filename = "FIRModule"
target datalayout = "e-m:e-p270:32:32-p271:32:32-p272:64:64-i64:64-f80:128-n8:16:32:64-S128"
target triple = "x86_64-pc-linux-gnu"

@_QFEend_ = internal global [300 x i8] undef
@_QFEfirst = internal global [300 x i8] undef
@_QFEs = internal global [300 x i8] undef
@_QQcl.c0fbb3c9d8578198079acab71c4fc228 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_7220/source.f\00"
@_QQcl.28 = linkonce constant [1 x i8] c"("
@_QQcl.29 = linkonce local_unnamed_addr constant [1 x i8] c")"
@_QQcl.286129 = linkonce constant [3 x i8] c"(a)"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

; Function Attrs: mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite)
declare void @free(ptr allocptr nocapture noundef) local_unnamed_addr #0

define void @_QQmain() local_unnamed_addr {
  %1 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %2 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %3 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %4 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %5 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %6 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %7 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %8 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %9 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %10 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %11 = alloca { ptr, i64, i32, i8, i8, i8, i8 }, align 8
  %12 = alloca i32, align 4
  %13 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 6)
  %14 = call i1 @_FortranAioInputInteger(ptr %13, ptr nonnull %12, i32 4)
  %15 = call i1 @_FortranAioInputAscii(ptr %13, ptr nonnull @_QFEs, i64 300)
  %16 = call i32 @_FortranAioEndIoStatement(ptr %13)
  store ptr @_QFEs, ptr %5, align 8, !tbaa !3
  %.fca.1.gep194 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 1
  store i64 300, ptr %.fca.1.gep194, align 8, !tbaa !3
  %.fca.2.gep195 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep195, align 8, !tbaa !3
  %.fca.3.gep196 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep196, align 4, !tbaa !3
  %.fca.4.gep197 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep197, align 1, !tbaa !3
  %.fca.5.gep198 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep198, align 2, !tbaa !3
  %.fca.6.gep199 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %5, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep199, align 1, !tbaa !3
  %.fca.1.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 1
  %.fca.2.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 2
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %11, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep, align 8, !tbaa !3
  %.fca.3.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep, align 4, !tbaa !3
  %.fca.4.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep, align 1, !tbaa !3
  %.fca.5.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 5
  store i8 2, ptr %.fca.5.gep, align 2, !tbaa !3
  %.fca.6.gep = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %11, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep, align 1, !tbaa !3
  %17 = call {} @_FortranATrim(ptr nonnull %11, ptr nonnull %5, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 7)
  %.fca.0.load = load ptr, ptr %11, align 8, !tbaa !3
  %.fca.1.load = load i64, ptr %.fca.1.gep, align 8, !tbaa !3
  %18 = call i64 @llvm.smin.i64(i64 %.fca.1.load, i64 300)
  call void @llvm.memmove.p0.p0.i64(ptr nonnull align 16 @_QFEs, ptr align 1 %.fca.0.load, i64 %18, i1 false)
  %19 = sub i64 300, %18
  %20 = icmp sgt i64 %19, 0
  br i1 %20, label %.lr.ph.preheader, label %._crit_edge

.lr.ph.preheader:                                 ; preds = %0
  %uglygep = getelementptr i8, ptr @_QFEs, i64 %18
  call void @llvm.memset.p0.i64(ptr align 1 %uglygep, i8 32, i64 %19, i1 false), !tbaa !7
  br label %._crit_edge

._crit_edge:                                      ; preds = %.lr.ph.preheader, %0
  call void @free(ptr %.fca.0.load)
  %21 = load i32, ptr %12, align 4, !tbaa !7
  %22 = icmp sgt i32 %21, 0
  br i1 %22, label %.lr.ph448.preheader, label %.preheader444

.lr.ph448.preheader:                              ; preds = %._crit_edge
  %23 = zext i32 %21 to i64
  br label %.lr.ph448

.preheader444:                                    ; preds = %.lr.ph448, %._crit_edge
  %.0428.lcssa = phi i32 [ 0, %._crit_edge ], [ %30, %.lr.ph448 ]
  %.0.lcssa = phi i32 [ 0, %._crit_edge ], [ %.1, %.lr.ph448 ]
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(300) @_QFEfirst, i8 32, i64 300, i1 false), !tbaa !7
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 16 dereferenceable(300) @_QFEend_, i8 32, i64 300, i1 false), !tbaa !7
  %24 = sub i32 0, %.0428.lcssa
  %25 = icmp sgt i32 %24, 0
  br i1 %25, label %.lr.ph454, label %._crit_edge455

.lr.ph448:                                        ; preds = %.lr.ph448.preheader, %.lr.ph448
  %indvars.iv = phi i64 [ 1, %.lr.ph448.preheader ], [ %indvars.iv.next, %.lr.ph448 ]
  %.0446 = phi i32 [ 0, %.lr.ph448.preheader ], [ %.1, %.lr.ph448 ]
  %.0428445 = phi i32 [ 0, %.lr.ph448.preheader ], [ %30, %.lr.ph448 ]
  %26 = add nsw i64 %indvars.iv, -1
  %27 = getelementptr [300 x [1 x i8]], ptr @_QFEs, i64 0, i64 %26
  %28 = call i32 @_FortranACharacterCompareScalar1(ptr %27, ptr nonnull @_QQcl.28, i64 1, i64 1)
  %29 = icmp eq i32 %28, 0
  %.1.v = select i1 %29, i32 1, i32 -1
  %.1 = add i32 %.1.v, %.0446
  %30 = call i32 @llvm.smin.i32(i32 %.0428445, i32 %.1)
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv, %23
  br i1 %exitcond.not, label %.preheader444, label %.lr.ph448

.lr.ph454:                                        ; preds = %.preheader444
  %31 = zext i32 %24 to i64
  %.fca.1.gep415 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 1
  %.fca.2.gep416 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 2
  %.fca.3.gep417 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 3
  %.fca.4.gep418 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 4
  %.fca.5.gep419 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 5
  %.fca.6.gep420 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %1, i64 0, i32 6
  %.fca.1.gep21 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 1
  %.fca.2.gep23 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 2
  %.fca.3.gep25 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 3
  %.fca.4.gep27 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 4
  %.fca.5.gep29 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 5
  %.fca.6.gep31 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %10, i64 0, i32 6
  %.unpack443.pre = load i8, ptr @_QQcl.28, align 1, !tbaa !7
  br label %32

32:                                               ; preds = %.lr.ph454, %._crit_edge452
  %33 = phi i64 [ %31, %.lr.ph454 ], [ %41, %._crit_edge452 ]
  store ptr @_QFEfirst, ptr %1, align 8, !tbaa !3
  store i64 300, ptr %.fca.1.gep415, align 8, !tbaa !3
  store i32 20180515, ptr %.fca.2.gep416, align 8, !tbaa !3
  store i8 0, ptr %.fca.3.gep417, align 4, !tbaa !3
  store i8 40, ptr %.fca.4.gep418, align 1, !tbaa !3
  store i8 0, ptr %.fca.5.gep419, align 2, !tbaa !3
  store i8 0, ptr %.fca.6.gep420, align 1, !tbaa !3
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %10, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep23, align 8, !tbaa !3
  store i8 0, ptr %.fca.3.gep25, align 4, !tbaa !3
  store i8 40, ptr %.fca.4.gep27, align 1, !tbaa !3
  store i8 2, ptr %.fca.5.gep29, align 2, !tbaa !3
  store i8 0, ptr %.fca.6.gep31, align 1, !tbaa !3
  %34 = call {} @_FortranATrim(ptr nonnull %10, ptr nonnull %1, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 22)
  %.fca.0.load33 = load ptr, ptr %10, align 8, !tbaa !3
  %.fca.1.load36 = load i64, ptr %.fca.1.gep21, align 8, !tbaa !3
  %35 = add i64 %.fca.1.load36, 1
  %36 = alloca i8, i64 %35, align 1
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 1 %36, ptr align 1 %.fca.0.load33, i64 %.fca.1.load36, i1 false)
  %37 = getelementptr [1 x i8], ptr %36, i64 %.fca.1.load36
  store i8 %.unpack443.pre, ptr %37, align 1, !tbaa !7
  %38 = call i64 @llvm.smin.i64(i64 %35, i64 300)
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 16 @_QFEfirst, ptr nonnull align 1 %36, i64 %38, i1 false)
  %39 = sub i64 300, %38
  %40 = icmp sgt i64 %39, 0
  br i1 %40, label %.lr.ph451.preheader, label %._crit_edge452

.lr.ph451.preheader:                              ; preds = %32
  %uglygep469 = getelementptr i8, ptr @_QFEfirst, i64 %38
  call void @llvm.memset.p0.i64(ptr align 1 %uglygep469, i8 32, i64 %39, i1 false), !tbaa !7
  br label %._crit_edge452

._crit_edge452:                                   ; preds = %.lr.ph451.preheader, %32
  call void @free(ptr %.fca.0.load33)
  %41 = add nsw i64 %33, -1
  %42 = icmp sgt i64 %33, 1
  br i1 %42, label %32, label %._crit_edge455

._crit_edge455:                                   ; preds = %._crit_edge452, %.preheader444
  %43 = sub i32 %.0.lcssa, %.0428.lcssa
  %44 = icmp sgt i32 %43, 0
  br i1 %44, label %.lr.ph460, label %._crit_edge461

.lr.ph460:                                        ; preds = %._crit_edge455
  %45 = zext i32 %43 to i64
  %.fca.1.gep401 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 1
  %.fca.2.gep402 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 2
  %.fca.3.gep403 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 3
  %.fca.4.gep404 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 4
  %.fca.5.gep405 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 5
  %.fca.6.gep406 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %2, i64 0, i32 6
  %.fca.1.gep56 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 1
  %.fca.2.gep58 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 2
  %.fca.3.gep60 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 3
  %.fca.4.gep62 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 4
  %.fca.5.gep64 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 5
  %.fca.6.gep66 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %9, i64 0, i32 6
  %.unpack442.pre = load i8, ptr @_QQcl.29, align 1, !tbaa !7
  br label %46

46:                                               ; preds = %.lr.ph460, %._crit_edge458
  %47 = phi i64 [ %45, %.lr.ph460 ], [ %55, %._crit_edge458 ]
  store ptr @_QFEend_, ptr %2, align 8, !tbaa !3
  store i64 300, ptr %.fca.1.gep401, align 8, !tbaa !3
  store i32 20180515, ptr %.fca.2.gep402, align 8, !tbaa !3
  store i8 0, ptr %.fca.3.gep403, align 4, !tbaa !3
  store i8 40, ptr %.fca.4.gep404, align 1, !tbaa !3
  store i8 0, ptr %.fca.5.gep405, align 2, !tbaa !3
  store i8 0, ptr %.fca.6.gep406, align 1, !tbaa !3
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %9, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep58, align 8, !tbaa !3
  store i8 0, ptr %.fca.3.gep60, align 4, !tbaa !3
  store i8 40, ptr %.fca.4.gep62, align 1, !tbaa !3
  store i8 2, ptr %.fca.5.gep64, align 2, !tbaa !3
  store i8 0, ptr %.fca.6.gep66, align 1, !tbaa !3
  %48 = call {} @_FortranATrim(ptr nonnull %9, ptr nonnull %2, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 26)
  %.fca.0.load68 = load ptr, ptr %9, align 8, !tbaa !3
  %.fca.1.load71 = load i64, ptr %.fca.1.gep56, align 8, !tbaa !3
  %49 = add i64 %.fca.1.load71, 1
  %50 = alloca i8, i64 %49, align 1
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 1 %50, ptr align 1 %.fca.0.load68, i64 %.fca.1.load71, i1 false)
  %51 = getelementptr [1 x i8], ptr %50, i64 %.fca.1.load71
  store i8 %.unpack442.pre, ptr %51, align 1, !tbaa !7
  %52 = call i64 @llvm.smin.i64(i64 %49, i64 300)
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 16 @_QFEend_, ptr nonnull align 1 %50, i64 %52, i1 false)
  %53 = sub i64 300, %52
  %54 = icmp sgt i64 %53, 0
  br i1 %54, label %.lr.ph457.preheader, label %._crit_edge458

.lr.ph457.preheader:                              ; preds = %46
  %uglygep470 = getelementptr i8, ptr @_QFEend_, i64 %52
  call void @llvm.memset.p0.i64(ptr align 1 %uglygep470, i8 32, i64 %53, i1 false), !tbaa !7
  br label %._crit_edge458

._crit_edge458:                                   ; preds = %.lr.ph457.preheader, %46
  call void @free(ptr %.fca.0.load68)
  %55 = add nsw i64 %47, -1
  %56 = icmp sgt i64 %47, 1
  br i1 %56, label %46, label %._crit_edge461

._crit_edge461:                                   ; preds = %._crit_edge458, %._crit_edge455
  %57 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.286129, i64 3, ptr null, i32 -1, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 29)
  store ptr @_QFEfirst, ptr %4, align 8, !tbaa !3
  %.fca.1.gep366 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 1
  store i64 300, ptr %.fca.1.gep366, align 8, !tbaa !3
  %.fca.2.gep367 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep367, align 8, !tbaa !3
  %.fca.3.gep368 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep368, align 4, !tbaa !3
  %.fca.4.gep369 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep369, align 1, !tbaa !3
  %.fca.5.gep370 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep370, align 2, !tbaa !3
  %.fca.6.gep371 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %4, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep371, align 1, !tbaa !3
  %.fca.1.gep91 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 1
  %.fca.2.gep93 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 2
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %8, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep93, align 8, !tbaa !3
  %.fca.3.gep95 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep95, align 4, !tbaa !3
  %.fca.4.gep97 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep97, align 1, !tbaa !3
  %.fca.5.gep99 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 5
  store i8 2, ptr %.fca.5.gep99, align 2, !tbaa !3
  %.fca.6.gep101 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %8, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep101, align 1, !tbaa !3
  %58 = call {} @_FortranATrim(ptr nonnull %8, ptr nonnull %4, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 29)
  %.fca.0.load103 = load ptr, ptr %8, align 8, !tbaa !3
  %.fca.1.load106 = load i64, ptr %.fca.1.gep91, align 8, !tbaa !3
  %.fca.1.gep126 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 1
  %.fca.2.gep128 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 2
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %7, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep128, align 8, !tbaa !3
  %.fca.3.gep130 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep130, align 4, !tbaa !3
  %.fca.4.gep132 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep132, align 1, !tbaa !3
  %.fca.5.gep134 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 5
  store i8 2, ptr %.fca.5.gep134, align 2, !tbaa !3
  %.fca.6.gep136 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %7, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep136, align 1, !tbaa !3
  %59 = call {} @_FortranATrim(ptr nonnull %7, ptr nonnull %5, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 29)
  %.fca.0.load138 = load ptr, ptr %7, align 8, !tbaa !3
  %.fca.1.load141 = load i64, ptr %.fca.1.gep126, align 8, !tbaa !3
  %60 = add i64 %.fca.1.load141, %.fca.1.load106
  %61 = alloca i8, i64 %60, align 1
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 1 %61, ptr align 1 %.fca.0.load103, i64 %.fca.1.load106, i1 false)
  %62 = icmp sgt i64 %.fca.1.load141, 0
  br i1 %62, label %.lr.ph463.preheader, label %._crit_edge464

.lr.ph463.preheader:                              ; preds = %._crit_edge461
  %uglygep471 = getelementptr i8, ptr %61, i64 %.fca.1.load106
  call void @llvm.memcpy.p0.p0.i64(ptr align 1 %uglygep471, ptr align 1 %.fca.0.load138, i64 %.fca.1.load141, i1 false), !tbaa !7
  br label %._crit_edge464

._crit_edge464:                                   ; preds = %.lr.ph463.preheader, %._crit_edge461
  store ptr @_QFEend_, ptr %3, align 8, !tbaa !3
  %.fca.1.gep387 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 1
  store i64 300, ptr %.fca.1.gep387, align 8, !tbaa !3
  %.fca.2.gep388 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 2
  store i32 20180515, ptr %.fca.2.gep388, align 8, !tbaa !3
  %.fca.3.gep389 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep389, align 4, !tbaa !3
  %.fca.4.gep390 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep390, align 1, !tbaa !3
  %.fca.5.gep391 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 5
  store i8 0, ptr %.fca.5.gep391, align 2, !tbaa !3
  %.fca.6.gep392 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %3, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep392, align 1, !tbaa !3
  %.fca.1.gep161 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 1
  %.fca.2.gep163 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 2
  call void @llvm.memset.p0.i64(ptr noundef nonnull align 8 dereferenceable(16) %6, i8 0, i64 16, i1 false)
  store i32 20180515, ptr %.fca.2.gep163, align 8, !tbaa !3
  %.fca.3.gep165 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 3
  store i8 0, ptr %.fca.3.gep165, align 4, !tbaa !3
  %.fca.4.gep167 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 4
  store i8 40, ptr %.fca.4.gep167, align 1, !tbaa !3
  %.fca.5.gep169 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 5
  store i8 2, ptr %.fca.5.gep169, align 2, !tbaa !3
  %.fca.6.gep171 = getelementptr inbounds { ptr, i64, i32, i8, i8, i8, i8 }, ptr %6, i64 0, i32 6
  store i8 0, ptr %.fca.6.gep171, align 1, !tbaa !3
  %63 = call {} @_FortranATrim(ptr nonnull %6, ptr nonnull %3, ptr nonnull @_QQcl.c0fbb3c9d8578198079acab71c4fc228, i32 29)
  %.fca.0.load173 = load ptr, ptr %6, align 8, !tbaa !3
  %.fca.0.load173473 = ptrtoint ptr %.fca.0.load173 to i64
  %.fca.1.load176 = load i64, ptr %.fca.1.gep161, align 8, !tbaa !3
  %64 = add i64 %.fca.1.load176, %60
  %65 = alloca i8, i64 %64, align 1
  %66 = ptrtoint ptr %65 to i64
  call void @llvm.memcpy.p0.p0.i64(ptr nonnull align 1 %65, ptr nonnull align 1 %61, i64 %60, i1 false)
  %67 = icmp sgt i64 %.fca.1.load176, 0
  br i1 %67, label %iter.check, label %._crit_edge467

iter.check:                                       ; preds = %._crit_edge464
  %min.iters.check = icmp ult i64 %.fca.1.load176, 8
  br i1 %min.iters.check, label %.lr.ph466.preheader, label %vector.memcheck

vector.memcheck:                                  ; preds = %iter.check
  %68 = add i64 %.fca.1.load141, %.fca.1.load106
  %69 = add i64 %68, %66
  %70 = sub i64 %69, %.fca.0.load173473
  %diff.check = icmp ult i64 %70, 32
  br i1 %diff.check, label %.lr.ph466.preheader, label %vector.main.loop.iter.check

vector.main.loop.iter.check:                      ; preds = %vector.memcheck
  %min.iters.check474 = icmp ult i64 %.fca.1.load176, 32
  br i1 %min.iters.check474, label %vec.epilog.ph, label %vector.ph

vector.ph:                                        ; preds = %vector.main.loop.iter.check
  %n.vec = and i64 %.fca.1.load176, -32
  br label %vector.body

vector.body:                                      ; preds = %vector.body, %vector.ph
  %index = phi i64 [ 0, %vector.ph ], [ %index.next, %vector.body ]
  %offset.idx = add i64 %60, %index
  %71 = getelementptr [1 x i8], ptr %.fca.0.load173, i64 %index
  %wide.load = load <16 x i8>, ptr %71, align 1, !tbaa !7
  %72 = getelementptr i8, ptr %71, i64 16
  %wide.load475 = load <16 x i8>, ptr %72, align 1, !tbaa !7
  %73 = getelementptr [1 x i8], ptr %65, i64 %offset.idx
  store <16 x i8> %wide.load, ptr %73, align 1, !tbaa !7
  %74 = getelementptr i8, ptr %73, i64 16
  store <16 x i8> %wide.load475, ptr %74, align 1, !tbaa !7
  %index.next = add nuw i64 %index, 32
  %75 = icmp eq i64 %index.next, %n.vec
  br i1 %75, label %middle.block, label %vector.body, !llvm.loop !9

middle.block:                                     ; preds = %vector.body
  %cmp.n = icmp eq i64 %.fca.1.load176, %n.vec
  br i1 %cmp.n, label %._crit_edge467, label %vec.epilog.iter.check

vec.epilog.iter.check:                            ; preds = %middle.block
  %ind.end480 = add i64 %60, %n.vec
  %ind.end478 = and i64 %.fca.1.load176, 31
  %n.vec.remaining = and i64 %.fca.1.load176, 24
  %min.epilog.iters.check = icmp eq i64 %n.vec.remaining, 0
  br i1 %min.epilog.iters.check, label %.lr.ph466.preheader, label %vec.epilog.ph

vec.epilog.ph:                                    ; preds = %vector.main.loop.iter.check, %vec.epilog.iter.check
  %vec.epilog.resume.val = phi i64 [ %n.vec, %vec.epilog.iter.check ], [ 0, %vector.main.loop.iter.check ]
  %n.vec477 = and i64 %.fca.1.load176, -8
  %ind.end = and i64 %.fca.1.load176, 7
  %ind.end479 = add i64 %60, %n.vec477
  br label %vec.epilog.vector.body

vec.epilog.vector.body:                           ; preds = %vec.epilog.vector.body, %vec.epilog.ph
  %index483 = phi i64 [ %vec.epilog.resume.val, %vec.epilog.ph ], [ %index.next486, %vec.epilog.vector.body ]
  %offset.idx484 = add i64 %60, %index483
  %76 = getelementptr [1 x i8], ptr %.fca.0.load173, i64 %index483
  %wide.load485 = load <8 x i8>, ptr %76, align 1, !tbaa !7
  %77 = getelementptr [1 x i8], ptr %65, i64 %offset.idx484
  store <8 x i8> %wide.load485, ptr %77, align 1, !tbaa !7
  %index.next486 = add nuw i64 %index483, 8
  %78 = icmp eq i64 %index.next486, %n.vec477
  br i1 %78, label %vec.epilog.middle.block, label %vec.epilog.vector.body, !llvm.loop !12

vec.epilog.middle.block:                          ; preds = %vec.epilog.vector.body
  %cmp.n482 = icmp eq i64 %.fca.1.load176, %n.vec477
  br i1 %cmp.n482, label %._crit_edge467, label %.lr.ph466.preheader

.lr.ph466.preheader:                              ; preds = %vector.memcheck, %iter.check, %vec.epilog.iter.check, %vec.epilog.middle.block
  %.ph = phi i64 [ %.fca.1.load176, %iter.check ], [ %.fca.1.load176, %vector.memcheck ], [ %ind.end478, %vec.epilog.iter.check ], [ %ind.end, %vec.epilog.middle.block ]
  %.ph487 = phi i64 [ %60, %iter.check ], [ %60, %vector.memcheck ], [ %ind.end480, %vec.epilog.iter.check ], [ %ind.end479, %vec.epilog.middle.block ]
  br label %.lr.ph466

.lr.ph466:                                        ; preds = %.lr.ph466.preheader, %.lr.ph466
  %79 = phi i64 [ %85, %.lr.ph466 ], [ %.ph, %.lr.ph466.preheader ]
  %80 = phi i64 [ %84, %.lr.ph466 ], [ %.ph487, %.lr.ph466.preheader ]
  %81 = sub i64 %80, %60
  %82 = getelementptr [1 x i8], ptr %.fca.0.load173, i64 %81
  %.unpack = load i8, ptr %82, align 1, !tbaa !7
  %83 = getelementptr [1 x i8], ptr %65, i64 %80
  store i8 %.unpack, ptr %83, align 1, !tbaa !7
  %84 = add i64 %80, 1
  %85 = add nsw i64 %79, -1
  %86 = icmp ugt i64 %79, 1
  br i1 %86, label %.lr.ph466, label %._crit_edge467, !llvm.loop !13

._crit_edge467:                                   ; preds = %.lr.ph466, %middle.block, %vec.epilog.middle.block, %._crit_edge464
  %87 = call i1 @_FortranAioOutputAscii(ptr %57, ptr nonnull %65, i64 %64)
  call void @free(ptr %.fca.0.load173)
  call void @free(ptr %.fca.0.load138)
  call void @free(ptr %.fca.0.load103)
  %88 = call i32 @_FortranAioEndIoStatement(ptr %57)
  ret void
}

declare ptr @_FortranAioBeginExternalListInput(i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioInputInteger(ptr, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioInputAscii(ptr, ptr, i64) local_unnamed_addr

declare i32 @_FortranAioEndIoStatement(ptr) local_unnamed_addr

declare {} @_FortranATrim(ptr, ptr, ptr, i32) local_unnamed_addr

; Function Attrs: mustprogress nocallback nofree nounwind willreturn memory(argmem: readwrite)
declare void @llvm.memmove.p0.p0.i64(ptr nocapture writeonly, ptr nocapture readonly, i64, i1 immarg) #1

declare i32 @_FortranACharacterCompareScalar1(ptr, ptr, i64, i64) local_unnamed_addr

declare ptr @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioOutputAscii(ptr, ptr, i64) local_unnamed_addr

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i64 @llvm.smin.i64(i64, i64) #2

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i32 @llvm.smin.i32(i32, i32) #2

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: write)
declare void @llvm.memset.p0.i64(ptr nocapture writeonly, i8, i64, i1 immarg) #3

; Function Attrs: nocallback nofree nounwind willreturn memory(argmem: readwrite)
declare void @llvm.memcpy.p0.p0.i64(ptr noalias nocapture writeonly, ptr noalias nocapture readonly, i64, i1 immarg) #4

attributes #0 = { mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { mustprogress nocallback nofree nounwind willreturn memory(argmem: readwrite) }
attributes #2 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
attributes #3 = { nocallback nofree nounwind willreturn memory(argmem: write) }
attributes #4 = { nocallback nofree nounwind willreturn memory(argmem: readwrite) }

!llvm.module.flags = !{!0, !1, !2}

!0 = !{i32 2, !"Debug Info Version", i32 3}
!1 = !{i32 8, !"PIC Level", i32 2}
!2 = !{i32 7, !"PIE Level", i32 2}
!3 = !{!4, !4, i64 0}
!4 = !{!"descriptor member", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
!7 = !{!8, !8, i64 0}
!8 = !{!"any data access", !5, i64 0}
!9 = distinct !{!9, !10, !11}
!10 = !{!"llvm.loop.isvectorized", i32 1}
!11 = !{!"llvm.loop.unroll.runtime.disable"}
!12 = distinct !{!12, !10, !11}
!13 = distinct !{!13, !10}
