program ABC162_D
  character(4000)::S
  integer*8::R=0,G=0,B=0,A
  read(*,*)N
  read(*,*)S
  do i=1,N
     if(S(i:i)=='R') R=R+1
     if(S(i:i)=='G') G=G+1
     if(S(i:i)=='B') B=B+1
  end do
  A=R*G*B
  do i=1,N
     do j=1,N
        if(i+2*j>N) cycle
        if(S(i:i)/=S(i+j:i+j) .and. S(i+j:i+j)/=S(i+2*j:i+2*j) .and. S(i+2*j:i+2*j)/=S(i:i)) A=A-1
     end do
  end do
  write(*,*)A
end program ABC162_D
; 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"

@_QFEb = internal unnamed_addr global i64 0
@_QFEg = internal unnamed_addr global i64 0
@_QFEr = internal unnamed_addr global i64 0
@_QFEs = internal global [4000 x i8] undef
@_QQcl.c0e4afb7bbda8d9e5c533357ef58ab06 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_1814/source.f\00"
@_QQcl.52 = linkonce constant [1 x i8] c"R"
@_QQcl.47 = linkonce constant [1 x i8] c"G"
@_QQcl.42 = linkonce constant [1 x i8] c"B"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

define void @_QQmain() local_unnamed_addr {
  %1 = alloca i32, align 4
  %2 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.c0e4afb7bbda8d9e5c533357ef58ab06, i32 4)
  %3 = call i1 @_FortranAioInputInteger(ptr %2, ptr nonnull %1, i32 4)
  %4 = call i32 @_FortranAioEndIoStatement(ptr %2)
  %5 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.c0e4afb7bbda8d9e5c533357ef58ab06, i32 5)
  %6 = call i1 @_FortranAioInputAscii(ptr %5, ptr nonnull @_QFEs, i64 4000)
  %7 = call i32 @_FortranAioEndIoStatement(ptr %5)
  %8 = load i32, ptr %1, align 4, !tbaa !3
  %9 = sext i32 %8 to i64
  %10 = icmp sgt i32 %8, 0
  br i1 %10, label %.lr.ph, label %._crit_edge.thread

._crit_edge.thread:                               ; preds = %0
  %11 = load i64, ptr @_QFEr, align 8, !tbaa !3
  %12 = load i64, ptr @_QFEg, align 8, !tbaa !3
  %13 = mul i64 %12, %11
  %14 = load i64, ptr @_QFEb, align 8, !tbaa !3
  %15 = mul i64 %13, %14
  br label %._crit_edge27

.lr.ph:                                           ; preds = %0, %35
  %indvars.iv = phi i64 [ %indvars.iv.next, %35 ], [ 1, %0 ]
  %16 = add nsw i64 %indvars.iv, -1
  %17 = getelementptr [4000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %16
  %18 = call i32 @_FortranACharacterCompareScalar1(ptr %17, ptr nonnull @_QQcl.52, i64 1, i64 1)
  %19 = icmp eq i32 %18, 0
  br i1 %19, label %20, label %23

20:                                               ; preds = %.lr.ph
  %21 = load i64, ptr @_QFEr, align 8, !tbaa !3
  %22 = add i64 %21, 1
  store i64 %22, ptr @_QFEr, align 8, !tbaa !3
  br label %23

23:                                               ; preds = %20, %.lr.ph
  %24 = call i32 @_FortranACharacterCompareScalar1(ptr %17, ptr nonnull @_QQcl.47, i64 1, i64 1)
  %25 = icmp eq i32 %24, 0
  br i1 %25, label %26, label %29

26:                                               ; preds = %23
  %27 = load i64, ptr @_QFEg, align 8, !tbaa !3
  %28 = add i64 %27, 1
  store i64 %28, ptr @_QFEg, align 8, !tbaa !3
  br label %29

29:                                               ; preds = %26, %23
  %30 = call i32 @_FortranACharacterCompareScalar1(ptr %17, ptr nonnull @_QQcl.42, i64 1, i64 1)
  %31 = icmp eq i32 %30, 0
  br i1 %31, label %32, label %35

32:                                               ; preds = %29
  %33 = load i64, ptr @_QFEb, align 8, !tbaa !3
  %34 = add i64 %33, 1
  store i64 %34, ptr @_QFEb, align 8, !tbaa !3
  br label %35

35:                                               ; preds = %32, %29
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv, %9
  br i1 %exitcond.not, label %._crit_edge, label %.lr.ph

._crit_edge:                                      ; preds = %35
  %.pre = load i32, ptr %1, align 4, !tbaa !3
  %.pre38 = sext i32 %.pre to i64
  %36 = load i64, ptr @_QFEr, align 8, !tbaa !3
  %37 = load i64, ptr @_QFEg, align 8, !tbaa !3
  %38 = mul i64 %37, %36
  %39 = load i64, ptr @_QFEb, align 8, !tbaa !3
  %40 = mul i64 %38, %39
  %41 = icmp sgt i32 %.pre, 0
  br i1 %41, label %.lr.ph26, label %._crit_edge27

.lr.ph26:                                         ; preds = %._crit_edge, %._crit_edge23
  %indvars.iv34 = phi i64 [ %indvars.iv.next35, %._crit_edge23 ], [ 1, %._crit_edge ]
  %.024 = phi i64 [ %.1.lcssa, %._crit_edge23 ], [ %40, %._crit_edge ]
  %42 = load i32, ptr %1, align 4, !tbaa !3
  %43 = icmp sgt i32 %42, 0
  br i1 %43, label %.lr.ph22, label %._crit_edge23

.lr.ph22:                                         ; preds = %.lr.ph26
  %44 = zext i32 %42 to i64
  %45 = add nsw i64 %indvars.iv34, -1
  %46 = getelementptr [4000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %45
  %47 = trunc i64 %indvars.iv34 to i32
  br label %48

48:                                               ; preds = %.lr.ph22, %69
  %indvars.iv30 = phi i64 [ 1, %.lr.ph22 ], [ %indvars.iv.next31, %69 ]
  %.120 = phi i64 [ %.024, %.lr.ph22 ], [ %.2, %69 ]
  %indvars.iv30.tr = trunc i64 %indvars.iv30 to i32
  %49 = shl i32 %indvars.iv30.tr, 1
  %50 = add i32 %49, %47
  %51 = load i32, ptr %1, align 4, !tbaa !3
  %.not = icmp sgt i32 %50, %51
  br i1 %.not, label %69, label %52

52:                                               ; preds = %48
  %53 = add nuw nsw i64 %indvars.iv30, %indvars.iv34
  %sext = shl i64 %53, 32
  %54 = ashr exact i64 %sext, 32
  %55 = add nsw i64 %54, -1
  %56 = getelementptr [4000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %55
  %57 = call i32 @_FortranACharacterCompareScalar1(ptr %46, ptr %56, i64 1, i64 1)
  %58 = icmp ne i32 %57, 0
  %59 = sext i32 %50 to i64
  %60 = add nsw i64 %59, -1
  %61 = getelementptr [4000 x [1 x i8]], ptr @_QFEs, i64 0, i64 %60
  %62 = call i32 @_FortranACharacterCompareScalar1(ptr %56, ptr %61, i64 1, i64 1)
  %63 = icmp ne i32 %62, 0
  %64 = and i1 %58, %63
  %65 = call i32 @_FortranACharacterCompareScalar1(ptr %61, ptr %46, i64 1, i64 1)
  %66 = icmp ne i32 %65, 0
  %67 = and i1 %64, %66
  %68 = sext i1 %67 to i64
  %spec.select = add i64 %.120, %68
  br label %69

69:                                               ; preds = %52, %48
  %.2 = phi i64 [ %.120, %48 ], [ %spec.select, %52 ]
  %indvars.iv.next31 = add nuw nsw i64 %indvars.iv30, 1
  %exitcond33.not = icmp eq i64 %indvars.iv30, %44
  br i1 %exitcond33.not, label %._crit_edge23, label %48

._crit_edge23:                                    ; preds = %69, %.lr.ph26
  %.1.lcssa = phi i64 [ %.024, %.lr.ph26 ], [ %.2, %69 ]
  %indvars.iv.next35 = add nuw nsw i64 %indvars.iv34, 1
  %exitcond37.not = icmp eq i64 %indvars.iv34, %.pre38
  br i1 %exitcond37.not, label %._crit_edge27, label %.lr.ph26

._crit_edge27:                                    ; preds = %._crit_edge23, %._crit_edge.thread, %._crit_edge
  %.0.lcssa = phi i64 [ %40, %._crit_edge ], [ %15, %._crit_edge.thread ], [ %.1.lcssa, %._crit_edge23 ]
  %70 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.c0e4afb7bbda8d9e5c533357ef58ab06, i32 18)
  %71 = call i1 @_FortranAioOutputInteger64(ptr %70, i64 %.0.lcssa)
  %72 = call i32 @_FortranAioEndIoStatement(ptr %70)
  ret void
}

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

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

declare i32 @_FortranAioEndIoStatement(ptr) local_unnamed_addr

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

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

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

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

!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 = !{!"any data access", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
