program D_Lucky_PIN
    implicit none
    integer::n,i,j,k,ans
    character(:),allocatable::str,tmpstr,ttmpstr
    character::array(10) = (/"0","1","2","3","4","5","6","7","8","9"/)
    read*,n
    allocate(character(n)::str)
    read*,str
    ans = 0

    do i = 1,10
        if (index(str,array(i)) > 0) then
            tmpstr = str(index(str,array(i))+1:n)
            do j = 1,10
                if (index(tmpstr,array(j)) > 0) then
                    ttmpstr = str(index(str,array(i))+index(tmpstr,array(j))+1:n)
                    do k = 1,10
                        if (index(ttmpstr,array(k)) > 0) then
                            ans = ans + 1
                        end if
                    end do
                end if
            end do
        end if
    end do

    print*,ans
end program D_Lucky_PIN
; 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"

@_QFEarray = internal global [10 x [1 x i8]] [[1 x i8] c"0", [1 x i8] c"1", [1 x i8] c"2", [1 x i8] c"3", [1 x i8] c"4", [1 x i8] c"5", [1 x i8] c"6", [1 x i8] c"7", [1 x i8] c"8", [1 x i8] c"9"]
@_QQcl.8bc27d4527c9555c7132a6b65807d5c9 = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_2901/source.f\00"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

; Function Attrs: mustprogress nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite)
declare noalias noundef ptr @malloc(i64 noundef) local_unnamed_addr #0

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

define void @_QQmain() local_unnamed_addr {
  %1 = alloca i32, align 4
  %2 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.8bc27d4527c9555c7132a6b65807d5c9, i32 6)
  %3 = call i1 @_FortranAioInputInteger(ptr %2, ptr nonnull %1, i32 4)
  %4 = call i32 @_FortranAioEndIoStatement(ptr %2)
  %5 = load i32, ptr %1, align 4, !tbaa !3
  %6 = call i32 @llvm.smax.i32(i32 %5, i32 0)
  %7 = zext i32 %6 to i64
  %8 = call ptr @malloc(i64 %7)
  %9 = call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.8bc27d4527c9555c7132a6b65807d5c9, i32 8)
  %10 = call i1 @_FortranAioInputAscii(ptr %9, ptr %8, i64 %7)
  %11 = call i32 @_FortranAioEndIoStatement(ptr %9)
  br label %12

12:                                               ; preds = %0, %.loopexit64
  %indvars.iv76 = phi i64 [ 1, %0 ], [ %indvars.iv.next77, %.loopexit64 ]
  %.073 = phi i64 [ undef, %0 ], [ %.4, %.loopexit64 ]
  %.02872 = phi ptr [ null, %0 ], [ %.432, %.loopexit64 ]
  %.03371 = phi i64 [ undef, %0 ], [ %.235, %.loopexit64 ]
  %.03670 = phi ptr [ null, %0 ], [ %.238, %.loopexit64 ]
  %.03969 = phi i32 [ 0, %0 ], [ %.5, %.loopexit64 ]
  %13 = add nsw i64 %indvars.iv76, -1
  %14 = getelementptr [10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 %13
  %15 = call i64 @_FortranAIndex1(ptr %8, i64 %7, ptr %14, i64 1, i1 false)
  %16 = trunc i64 %15 to i32
  %17 = icmp sgt i32 %16, 0
  br i1 %17, label %18, label %.loopexit64

18:                                               ; preds = %12
  %19 = call i64 @_FortranAIndex1(ptr %8, i64 %7, ptr %14, i64 1, i1 false)
  %20 = load i32, ptr %1, align 4, !tbaa !3
  %21 = shl i64 %19, 32
  %sext = add i64 %21, 4294967296
  %22 = ashr exact i64 %sext, 32
  %23 = sext i32 %20 to i64
  %24 = add nsw i64 %22, -1
  %25 = getelementptr [1 x i8], ptr %8, i64 %24
  %26 = sub nsw i64 %23, %22
  %27 = call i64 @llvm.smax.i64(i64 %26, i64 -1)
  %28 = add nsw i64 %27, 1
  %.not = icmp eq ptr %.03670, null
  br i1 %.not, label %.thread55, label %29

29:                                               ; preds = %18
  %.not54 = icmp eq i64 %.03371, %28
  br i1 %.not54, label %31, label %32

.thread55:                                        ; preds = %18
  %30 = call ptr @malloc(i64 %28)
  call void @llvm.memcpy.p0.p0.i64(ptr align 1 %30, ptr align 1 %25, i64 %28, i1 false)
  br label %.preheader63

31:                                               ; preds = %29
  call void @llvm.memmove.p0.p0.i64(ptr nonnull align 1 %.03670, ptr align 1 %25, i64 %.03371, i1 false)
  br label %.preheader63

32:                                               ; preds = %29
  %33 = call ptr @malloc(i64 %28)
  call void @llvm.memcpy.p0.p0.i64(ptr align 1 %33, ptr align 1 %25, i64 %28, i1 false)
  call void @free(ptr nonnull %.03670)
  br label %.preheader63

.preheader63:                                     ; preds = %32, %.thread55, %31
  %.137.ph = phi ptr [ %.03670, %31 ], [ %30, %.thread55 ], [ %33, %32 ]
  %.134.ph = phi i64 [ %.03371, %31 ], [ %28, %.thread55 ], [ %28, %32 ]
  br label %34

34:                                               ; preds = %.preheader63, %.loopexit
  %indvars.iv = phi i64 [ 1, %.preheader63 ], [ %indvars.iv.next, %.loopexit ]
  %.168 = phi i64 [ %.073, %.preheader63 ], [ %.3, %.loopexit ]
  %.12967 = phi ptr [ %.02872, %.preheader63 ], [ %.331, %.loopexit ]
  %.14066 = phi i32 [ %.03969, %.preheader63 ], [ %.443, %.loopexit ]
  %35 = add nsw i64 %indvars.iv, -1
  %36 = getelementptr [10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 %35
  %37 = call i64 @_FortranAIndex1(ptr %.137.ph, i64 %.134.ph, ptr %36, i64 1, i1 false)
  %38 = trunc i64 %37 to i32
  %39 = icmp sgt i32 %38, 0
  br i1 %39, label %40, label %.loopexit

40:                                               ; preds = %34
  %41 = call i64 @_FortranAIndex1(ptr %8, i64 %7, ptr %14, i64 1, i1 false)
  %42 = call i64 @_FortranAIndex1(ptr %.137.ph, i64 %.134.ph, ptr %36, i64 1, i1 false)
  %43 = add i64 %42, %41
  %44 = load i32, ptr %1, align 4, !tbaa !3
  %45 = shl i64 %43, 32
  %sext51 = add i64 %45, 4294967296
  %46 = ashr exact i64 %sext51, 32
  %47 = sext i32 %44 to i64
  %48 = add nsw i64 %46, -1
  %49 = getelementptr [1 x i8], ptr %8, i64 %48
  %50 = sub nsw i64 %47, %46
  %51 = call i64 @llvm.smax.i64(i64 %50, i64 -1)
  %52 = add nsw i64 %51, 1
  %.not52 = icmp eq ptr %.12967, null
  br i1 %.not52, label %.thread60, label %53

53:                                               ; preds = %40
  %.not53 = icmp eq i64 %.168, %52
  br i1 %.not53, label %55, label %56

.thread60:                                        ; preds = %40
  %54 = call ptr @malloc(i64 %52)
  call void @llvm.memcpy.p0.p0.i64(ptr align 1 %54, ptr align 1 %49, i64 %52, i1 false)
  br label %.preheader

55:                                               ; preds = %53
  call void @llvm.memmove.p0.p0.i64(ptr nonnull align 1 %.12967, ptr align 1 %49, i64 %.168, i1 false)
  br label %.preheader

56:                                               ; preds = %53
  %57 = call ptr @malloc(i64 %52)
  call void @llvm.memcpy.p0.p0.i64(ptr align 1 %57, ptr align 1 %49, i64 %52, i1 false)
  call void @free(ptr nonnull %.12967)
  br label %.preheader

.preheader:                                       ; preds = %56, %.thread60, %55
  %.230.ph = phi ptr [ %.12967, %55 ], [ %54, %.thread60 ], [ %57, %56 ]
  %.2.ph = phi i64 [ %.168, %55 ], [ %52, %.thread60 ], [ %52, %56 ]
  %58 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull @_QFEarray, i64 1, i1 false)
  %59 = trunc i64 %58 to i32
  %60 = icmp sgt i32 %59, 0
  %61 = zext i1 %60 to i32
  %spec.select = add i32 %.14066, %61
  %62 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 1), i64 1, i1 false)
  %63 = trunc i64 %62 to i32
  %64 = icmp sgt i32 %63, 0
  %65 = zext i1 %64 to i32
  %spec.select.1 = add i32 %spec.select, %65
  %66 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 2), i64 1, i1 false)
  %67 = trunc i64 %66 to i32
  %68 = icmp sgt i32 %67, 0
  %69 = zext i1 %68 to i32
  %spec.select.2 = add i32 %spec.select.1, %69
  %70 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 3), i64 1, i1 false)
  %71 = trunc i64 %70 to i32
  %72 = icmp sgt i32 %71, 0
  %73 = zext i1 %72 to i32
  %spec.select.3 = add i32 %spec.select.2, %73
  %74 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 4), i64 1, i1 false)
  %75 = trunc i64 %74 to i32
  %76 = icmp sgt i32 %75, 0
  %77 = zext i1 %76 to i32
  %spec.select.4 = add i32 %spec.select.3, %77
  %78 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 5), i64 1, i1 false)
  %79 = trunc i64 %78 to i32
  %80 = icmp sgt i32 %79, 0
  %81 = zext i1 %80 to i32
  %spec.select.5 = add i32 %spec.select.4, %81
  %82 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 6), i64 1, i1 false)
  %83 = trunc i64 %82 to i32
  %84 = icmp sgt i32 %83, 0
  %85 = zext i1 %84 to i32
  %spec.select.6 = add i32 %spec.select.5, %85
  %86 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 7), i64 1, i1 false)
  %87 = trunc i64 %86 to i32
  %88 = icmp sgt i32 %87, 0
  %89 = zext i1 %88 to i32
  %spec.select.7 = add i32 %spec.select.6, %89
  %90 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 8), i64 1, i1 false)
  %91 = trunc i64 %90 to i32
  %92 = icmp sgt i32 %91, 0
  %93 = zext i1 %92 to i32
  %spec.select.8 = add i32 %spec.select.7, %93
  %94 = call i64 @_FortranAIndex1(ptr %.230.ph, i64 %.2.ph, ptr nonnull getelementptr inbounds ([10 x [1 x i8]], ptr @_QFEarray, i64 0, i64 9), i64 1, i1 false)
  %95 = trunc i64 %94 to i32
  %96 = icmp sgt i32 %95, 0
  %97 = zext i1 %96 to i32
  %spec.select.9 = add i32 %spec.select.8, %97
  br label %.loopexit

.loopexit:                                        ; preds = %.preheader, %34
  %.443 = phi i32 [ %.14066, %34 ], [ %spec.select.9, %.preheader ]
  %.331 = phi ptr [ %.12967, %34 ], [ %.230.ph, %.preheader ]
  %.3 = phi i64 [ %.168, %34 ], [ %.2.ph, %.preheader ]
  %indvars.iv.next = add nuw nsw i64 %indvars.iv, 1
  %exitcond.not = icmp eq i64 %indvars.iv.next, 11
  br i1 %exitcond.not, label %.loopexit64, label %34

.loopexit64:                                      ; preds = %.loopexit, %12
  %.5 = phi i32 [ %.03969, %12 ], [ %.443, %.loopexit ]
  %.238 = phi ptr [ %.03670, %12 ], [ %.137.ph, %.loopexit ]
  %.235 = phi i64 [ %.03371, %12 ], [ %.134.ph, %.loopexit ]
  %.432 = phi ptr [ %.02872, %12 ], [ %.331, %.loopexit ]
  %.4 = phi i64 [ %.073, %12 ], [ %.3, %.loopexit ]
  %indvars.iv.next77 = add nuw nsw i64 %indvars.iv76, 1
  %exitcond79.not = icmp eq i64 %indvars.iv.next77, 11
  br i1 %exitcond79.not, label %98, label %12

98:                                               ; preds = %.loopexit64
  %99 = call ptr @_FortranAioBeginExternalListOutput(i32 -1, ptr nonnull @_QQcl.8bc27d4527c9555c7132a6b65807d5c9, i32 27)
  %100 = call i1 @_FortranAioOutputInteger32(ptr %99, i32 %.5)
  %101 = call i32 @_FortranAioEndIoStatement(ptr %99)
  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 i64 @_FortranAIndex1(ptr, i64, ptr, i64, i1) 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) #2

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

declare i1 @_FortranAioOutputInteger32(ptr, i32) local_unnamed_addr

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

; Function Attrs: nocallback nofree nosync nounwind speculatable willreturn memory(none)
declare i64 @llvm.smax.i64(i64, i64) #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 nofree nounwind willreturn allockind("alloc,uninitialized") allocsize(0) memory(inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #1 = { mustprogress nounwind willreturn allockind("free") memory(argmem: readwrite, inaccessiblemem: readwrite) "alloc-family"="malloc" }
attributes #2 = { mustprogress nocallback nofree nounwind willreturn memory(argmem: readwrite) }
attributes #3 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }
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 = !{!"any data access", !5, i64 0}
!5 = !{!"any access", !6, i64 0}
!6 = !{!"Flang Type TBAA Root"}
