program ccc

implicit none
integer(8) :: a, b, c, d, cd, ans

read*, a, b, c, d
call lcm(c,d,cd)

ans=b/c+b/d-b/cd
ans=ans-(a-1)/c-(a-1)/d+(a-1)/cd
ans=(b-a+1)-ans
write(*,'(i0)') ans
end program

subroutine lcm(a,b,res)
integer(8) :: aa, bb, a, b, dumy, i, m, res

aa=a
bb=b

if(a<b) then
dumy=a
a=b
b=dumy
end if

do i = 1, 100000
m=mod(a,b)
if (m==0) then
res=aa*bb/b
a=aa
b=bb
return
else
a=b
b=m
end if
end do

end subroutine lcm
; 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"

@_QQcl.4717cfa1fc37566637d7a3b978e6a02e = linkonce constant [73 x i8] c"/home/ubuntu/Downloads/TheStack_IR/Collated/Fortran/Source_3945/source.f\00"
@_QQcl.28693029 = linkonce constant [4 x i8] c"(i0)"
@_QQEnvironmentDefaults = local_unnamed_addr constant ptr null

define void @_QQmain() local_unnamed_addr {
  %1 = alloca i64, align 8
  %2 = alloca i64, align 8
  %3 = alloca i64, align 8
  %4 = alloca i64, align 8
  %5 = tail call ptr @_FortranAioBeginExternalListInput(i32 -1, ptr nonnull @_QQcl.4717cfa1fc37566637d7a3b978e6a02e, i32 6)
  %6 = call i1 @_FortranAioInputInteger(ptr %5, ptr nonnull %1, i32 8)
  %7 = call i1 @_FortranAioInputInteger(ptr %5, ptr nonnull %2, i32 8)
  %8 = call i1 @_FortranAioInputInteger(ptr %5, ptr nonnull %3, i32 8)
  %9 = call i1 @_FortranAioInputInteger(ptr %5, ptr nonnull %4, i32 8)
  %10 = call i32 @_FortranAioEndIoStatement(ptr %5)
  %11 = load i64, ptr %3, align 8, !tbaa !3
  %12 = load i64, ptr %4, align 8, !tbaa !3
  %spec.select = call i64 @llvm.smax.i64(i64 %11, i64 %12)
  %spec.select21 = call i64 @llvm.smin.i64(i64 %11, i64 %12)
  br label %13

13:                                               ; preds = %24, %0
  %14 = phi i64 [ %spec.select, %0 ], [ %16, %24 ]
  %15 = phi i64 [ %spec.select21, %0 ], [ %22, %24 ]
  %.014.i = phi i64 [ 100000, %0 ], [ %25, %24 ]
  %16 = srem i64 %14, %15
  %17 = icmp eq i64 %16, 0
  br i1 %17, label %18, label %21

18:                                               ; preds = %21, %13
  %.lcssa26 = phi i64 [ %15, %13 ], [ %16, %21 ]
  %19 = mul i64 %12, %11
  %20 = sdiv i64 %19, %.lcssa26
  store i64 %11, ptr %3, align 8, !tbaa !3
  store i64 %12, ptr %4, align 8, !tbaa !3
  br label %lcm_.exit

21:                                               ; preds = %13
  store i64 %15, ptr %3, align 8, !tbaa !3
  store i64 %16, ptr %4, align 8, !tbaa !3
  %22 = srem i64 %15, %16
  %23 = icmp eq i64 %22, 0
  br i1 %23, label %18, label %24

24:                                               ; preds = %21
  store i64 %16, ptr %3, align 8, !tbaa !3
  store i64 %22, ptr %4, align 8, !tbaa !3
  %25 = add nsw i64 %.014.i, -2
  %.not = icmp eq i64 %.014.i, 2
  br i1 %.not, label %lcm_.exit, label %13

lcm_.exit:                                        ; preds = %24, %18
  %26 = phi i64 [ %12, %18 ], [ %22, %24 ]
  %27 = phi i64 [ %11, %18 ], [ %16, %24 ]
  %.0 = phi i64 [ %20, %18 ], [ undef, %24 ]
  %28 = load i64, ptr %2, align 8, !tbaa !3
  %29 = sdiv i64 %28, %27
  %30 = sdiv i64 %28, %26
  %31 = sdiv i64 %28, %.0
  %32 = load i64, ptr %1, align 8, !tbaa !3
  %33 = add i64 %32, -1
  %34 = sdiv i64 %33, %27
  %35 = sdiv i64 %33, %26
  %36 = sdiv i64 %33, %.0
  %.neg4.neg = add i64 %28, 1
  %37 = add i64 %29, %30
  %38 = add i64 %.neg4.neg, %31
  %39 = add i64 %37, %32
  %.neg13 = sub i64 %38, %39
  %.neg14 = add i64 %.neg13, %34
  %40 = add i64 %.neg14, %35
  %41 = sub i64 %40, %36
  %42 = call ptr @_FortranAioBeginExternalFormattedOutput(ptr nonnull @_QQcl.28693029, i64 4, ptr null, i32 -1, ptr nonnull @_QQcl.4717cfa1fc37566637d7a3b978e6a02e, i32 12)
  %43 = call i1 @_FortranAioOutputInteger64(ptr %42, i64 %41)
  %44 = call i32 @_FortranAioEndIoStatement(ptr %42)
  ret void
}

; Function Attrs: nofree norecurse nosync nounwind memory(argmem: readwrite)
define void @lcm_(ptr nocapture %0, ptr nocapture %1, ptr nocapture writeonly %2) local_unnamed_addr #0 {
  %4 = load i64, ptr %0, align 8, !tbaa !3
  %5 = load i64, ptr %1, align 8, !tbaa !3
  %6 = icmp slt i64 %4, %5
  br i1 %6, label %7, label %.preheader

7:                                                ; preds = %3
  store i64 %5, ptr %0, align 8, !tbaa !3
  store i64 %4, ptr %1, align 8, !tbaa !3
  br label %.preheader

.preheader:                                       ; preds = %7, %3
  %.ph = phi i64 [ %5, %3 ], [ %4, %7 ]
  br label %8

8:                                                ; preds = %20, %.preheader
  %9 = phi i64 [ %.ph, %.preheader ], [ %18, %20 ]
  %.014 = phi i64 [ 100000, %.preheader ], [ %21, %20 ]
  %10 = load i64, ptr %0, align 8, !tbaa !3
  %11 = srem i64 %10, %9
  %12 = icmp eq i64 %11, 0
  br i1 %12, label %13, label %16

13:                                               ; preds = %16, %8
  %.lcssa = phi i64 [ %9, %8 ], [ %11, %16 ]
  %14 = mul i64 %5, %4
  %15 = sdiv i64 %14, %.lcssa
  store i64 %15, ptr %2, align 8, !tbaa !3
  store i64 %4, ptr %0, align 8, !tbaa !3
  store i64 %5, ptr %1, align 8, !tbaa !3
  br label %.loopexit

16:                                               ; preds = %8
  store i64 %9, ptr %0, align 8, !tbaa !3
  store i64 %11, ptr %1, align 8, !tbaa !3
  %17 = load i64, ptr %0, align 8, !tbaa !3
  %18 = srem i64 %17, %11
  %19 = icmp eq i64 %18, 0
  br i1 %19, label %13, label %20

20:                                               ; preds = %16
  store i64 %11, ptr %0, align 8, !tbaa !3
  store i64 %18, ptr %1, align 8, !tbaa !3
  %21 = add nsw i64 %.014, -2
  %.not = icmp eq i64 %.014, 2
  br i1 %.not, label %.loopexit, label %8

.loopexit:                                        ; preds = %20, %13
  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 ptr @_FortranAioBeginExternalFormattedOutput(ptr, i64, ptr, i32, ptr, i32) local_unnamed_addr

declare i1 @_FortranAioOutputInteger64(ptr, i64) local_unnamed_addr

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

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

attributes #0 = { nofree norecurse nosync nounwind memory(argmem: readwrite) }
attributes #1 = { nocallback nofree nosync nounwind speculatable willreturn memory(none) }

!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"}
