Option Explicit
    Const MAXARR As Long = 24 * 60 * 367&   '作業時間テーブルの要素数（1年分）
    Const MAXPSN As Long = 5                '最大社員数
    Dim dicT As Object                      '社員名の連想配列 キー：社員名
                                            '値：1,2,4,8,16,32(1=社員1,2=社員2,4=社員3,8=社員4,16=社員5)
    Dim timeArr(MAXARR) As Long             '作業時間テーブル
    Dim sh1 As Worksheet
    Dim sh2 As Worksheet
    Dim sh3 As Worksheet
 
Public Sub 重複時間算出()
    Set sh1 = Worksheets("元データ")
    Set sh2 = Worksheets("中間データ")
    Set sh3 = Worksheets("集計データ")
    Dim bit_pos As Long: bit_pos = 1
    Dim maxrow1 As Long
    Dim maxrow2 As Long
    Dim row1 As Long
    Dim row2 As Long
    Dim row3 As Long
    Dim name As String
    Set dicT = CreateObject("Scripting.Dictionary")     '連想配列の定義
    maxrow1 = sh1.Cells(Rows.Count, 1).End(xlUp).Row    '最大行取得
    If maxrow1 < 2 Then Exit Sub
    For row1 = 2 To maxrow1
        name = sh1.Cells(row1, "B").Value
        If dicT.exists(name) = False Then
            dicT(name) = bit_pos
            bit_pos = bit_pos * 2
        End If
    Next
    If dicT.Count > MAXPSN Then
        MsgBox ("社員数が多すぎます")
    End If
    Dim start_year As Long      '年（元データ2行目）
    Dim start_day As Date       '上記年の1月1日
    Dim sdate As Date
    Dim edate As Date
    Dim sx As Long
    Dim ex As Long
    Dim srd As Long
    Dim erd As Long
    Dim val As Long
    Dim psn As Long
    Dim i As Long
    Call init_data
    start_year = Year(sh1.Cells(2, "C").Value)
    start_day = DateSerial(start_year, 1, 1)
    '元データ読み込み
    For row1 = 2 To maxrow1
        name = sh1.Cells(row1, "B").Value
        sdate = sh1.Cells(row1, "C").Value
        edate = sh1.Cells(row1, "D").Value
        If Year(sdate) <> start_year Then
            Call data_error(row1, "年が不一致")
        End If
        If sdate >= edate Then
            Call data_error(row1, "開始時間と終了時間の順序不正")
        End If
        If edate - sdate >= 1# Then
            Call data_error(row1, "24時間以上の勤務")
        End If
        srd = DateDiff("d", start_day, sdate)
        erd = DateDiff("d", start_day, edate)
        sx = srd * 1440 + Hour(sdate) * 60 + Minute(sdate)
        ex = erd * 1440 + Hour(edate) * 60 + Minute(edate)
        For i = sx To ex - 1
            timeArr(i) = timeArr(i) Or dicT(name)
        Next
    Next
    sh2.Rows("2:" & Rows.Count).ClearContents
    sh3.Rows("3:" & Rows.Count).ClearContents
    sh2.Columns("B:B").NumberFormatLocal = "yyyy/m/d"
    sh2.Columns("D:D").NumberFormatLocal = "yyyy/m/d"
    sh2.Columns("C:C").NumberFormatLocal = "h:mm"
    sh2.Columns("E:E").NumberFormatLocal = "h:mm"
    sh3.Columns("C:C").NumberFormatLocal = "[h]:mm"
    sh3.Columns("E:E").NumberFormatLocal = "yyyy/m/d"
    sh3.Columns("F:F").NumberFormatLocal = "h:mm"
    sh3.Columns("G:G").NumberFormatLocal = "yyyy/m/d"
    sh3.Columns("H:H").NumberFormatLocal = "h:mm"
    row2 = 2
    row3 = 3
    '中間データ出力
    sx = -1
    For i = 0 To UBound(timeArr)
        val = timeArr(i)
        psn = 0
        If val > 0 Then
            psn = Count_Bit(val)
            If psn > 2 Then
                If sx = -1 Then
                    sx = i
                    ex = i
                Else
                    If timeArr(sx) = val Then ex = i
                End If
            End If
        End If
        If sx <> -1 Then
            If timeArr(sx) <> timeArr(i) Then
                sh2.Cells(row2, "A").Value = Count_Bit(timeArr(sx))             '人数
                sh2.Cells(row2, "B").Value = DateAdd("d", sx \ 1440, start_day)    '開始日
                sh2.Cells(row2, "C").Value = (sx Mod 1440) / 1440               '開始時間
                sh2.Cells(row2, "D").Value = DateAdd("d", ex \ 1440, start_day)    '終了日
                sh2.Cells(row2, "E").Value = ((ex Mod 1440) + 1) / 1440         '終了時間
                sh2.Cells(row2, "F").Value = get_member(timeArr(sx))            '社員
                sx = -1
                ex = -1
                row2 = row2 + 1
            End If
        End If
    Next
    '中間データ降順ソート
    maxrow2 = row2 - 1
    If maxrow2 < 2 Then Exit Sub
    Dim rg As Range
    Set rg = sh2.Range("A2:F" & maxrow2)
    rg.Sort key1:=sh2.Range("A2"), order1:=xlDescending, Header:=xlNo
    '最終結果出力
    Dim oldpsn As Long: oldpsn = 0
    Dim dcount As Long
    Dim srow3 As Long
    Dim stime As Date
    Dim etime As Date
    Dim dtimes As Long
    Dim diff As Long
    For row2 = 2 To maxrow2
        psn = sh2.Cells(row2, "A").Value
        If psn <> oldpsn Then
            Call output_total(oldpsn, srow3, dcount, dtimes)
            srow3 = row3
            dcount = 0
            dtimes = 0
        End If
        dcount = dcount + 1
        sh3.Cells(row3, "D").Value = dcount                         '回数
        sh3.Cells(row3, "E").Value = sh2.Cells(row2, "B").Value     '開始日付
        sh3.Cells(row3, "F").Value = sh2.Cells(row2, "C").Value     '開始時刻
        sh3.Cells(row3, "G").Value = sh2.Cells(row2, "D").Value     '終了日付
        sh3.Cells(row3, "H").Value = sh2.Cells(row2, "E").Value     '終了時刻
        sh3.Cells(row3, "I").Value = sh2.Cells(row2, "F").Value     '社員
 
        stime = sh2.Cells(row2, "C").Value  '開始時刻
        etime = sh2.Cells(row2, "E").Value  '終了時刻
        diff = Hour(etime) * 60 + Minute(etime) - (Hour(stime) * 60 + Minute(stime))
        If diff < 0 Then diff = diff + 1440
        dtimes = dtimes + diff
        row3 = row3 + 1
        oldpsn = psn
    Next
    Call output_total(oldpsn, srow3, dcount, dtimes)
    MsgBox ("完了")
End Sub
'合計出力
Private Sub output_total(ByVal oldpsn As Long, ByVal srow3 As Long, ByVal dcount As Long, ByVal dtimes_long As Long)
    If oldpsn = 0 Then Exit Sub
    sh3.Cells(srow3, "A").Value = oldpsn                '人数
    sh3.Cells(srow3, "B").Value = dcount                '年間回数
    sh3.Cells(srow3, "C").Value = dtimes_long / 1440    '年間時間
End Sub
'エラー処理
Private Sub data_error(ByVal wrow, ByVal msg)
    sh1.Activate
    sh1.Cells(wrow, "C").Select
    MsgBox (msg)
    End
End Sub
'社員名取得
Private Function get_member(ByVal num As Long) As String
    Dim i As Long
    Dim obuf As String: obuf = ""
    Dim items As Variant
    Dim keys As Variant
    items = dicT.items
    keys = dicT.keys
    For i = 0 To dicT.Count - 1
        If (num And items(i)) <> 0 Then
            If obuf = "" Then
                obuf = keys(i)
            Else
                obuf = obuf & "," & keys(i)
            End If
        End If
    Next
    get_member = obuf
End Function
'時間テーブル初期化
Private Sub init_data()
    Dim i As Long
    For i = 0 To UBound(timeArr)
        timeArr(i) = 0
    Next
End Sub
'ビット数カウント
Private Function Count_Bit(ByVal num As Long) As Long
    Dim pos As Long: pos = 1
    Dim i As Long
    Count_Bit = 0
    For i = 1 To MAXPSN
        If (num And pos) <> 0 Then Count_Bit = Count_Bit + 1
        pos = pos * 2
    Next
End Function
 

T3B0aW9uIEV4cGxpY2l0CiAgICBDb25zdCBNQVhBUlIgQXMgTG9uZyA9IDI0ICogNjAgKiAzNjcmICAgJ+S9nOalreaZgumWk+ODhuODvOODluODq+OBruimgee0oOaVsO+8iDHlubTliIbvvIkKICAgIENvbnN0IE1BWFBTTiBBcyBMb25nID0gNSAgICAgICAgICAgICAgICAn5pyA5aSn56S+5ZOh5pWwCiAgICBEaW0gZGljVCBBcyBPYmplY3QgICAgICAgICAgICAgICAgICAgICAgJ+ekvuWToeWQjeOBrumAo+aDs+mFjeWIlyDjgq3jg7zvvJrnpL7lk6HlkI0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAn5YCk77yaMSwyLDQsOCwxNiwzMigxPeekvuWToTEsMj3npL7lk6EyLDQ956S+5ZOhMyw4PeekvuWToTQsMTY956S+5ZOhNSkKICAgIERpbSB0aW1lQXJyKE1BWEFSUikgQXMgTG9uZyAgICAgICAgICAgICAn5L2c5qWt5pmC6ZaT44OG44O844OW44OrCiAgICBEaW0gc2gxIEFzIFdvcmtzaGVldAogICAgRGltIHNoMiBBcyBXb3Jrc2hlZXQKICAgIERpbSBzaDMgQXMgV29ya3NoZWV0CgpQdWJsaWMgU3ViIOmHjeikh+aZgumWk+eul+WHuigpCiAgICBTZXQgc2gxID0gV29ya3NoZWV0cygi5YWD44OH44O844K/IikKICAgIFNldCBzaDIgPSBXb3Jrc2hlZXRzKCLkuK3plpPjg4fjg7zjgr8iKQogICAgU2V0IHNoMyA9IFdvcmtzaGVldHMoIumbhuioiOODh+ODvOOCvyIpCiAgICBEaW0gYml0X3BvcyBBcyBMb25nOiBiaXRfcG9zID0gMQogICAgRGltIG1heHJvdzEgQXMgTG9uZwogICAgRGltIG1heHJvdzIgQXMgTG9uZwogICAgRGltIHJvdzEgQXMgTG9uZwogICAgRGltIHJvdzIgQXMgTG9uZwogICAgRGltIHJvdzMgQXMgTG9uZwogICAgRGltIG5hbWUgQXMgU3RyaW5nCiAgICBTZXQgZGljVCA9IENyZWF0ZU9iamVjdCgiU2NyaXB0aW5nLkRpY3Rpb25hcnkiKSAgICAgJ+mAo+aDs+mFjeWIl+OBruWumue+qQogICAgbWF4cm93MSA9IHNoMS5DZWxscyhSb3dzLkNvdW50LCAxKS5FbmQoeGxVcCkuUm93ICAgICfmnIDlpKfooYzlj5blvpcKICAgIElmIG1heHJvdzEgPCAyIFRoZW4gRXhpdCBTdWIKICAgIEZvciByb3cxID0gMiBUbyBtYXhyb3cxCiAgICAgICAgbmFtZSA9IHNoMS5DZWxscyhyb3cxLCAiQiIpLlZhbHVlCiAgICAgICAgSWYgZGljVC5leGlzdHMobmFtZSkgPSBGYWxzZSBUaGVuCiAgICAgICAgICAgIGRpY1QobmFtZSkgPSBiaXRfcG9zCiAgICAgICAgICAgIGJpdF9wb3MgPSBiaXRfcG9zICogMgogICAgICAgIEVuZCBJZgogICAgTmV4dAogICAgSWYgZGljVC5Db3VudCA+IE1BWFBTTiBUaGVuCiAgICAgICAgTXNnQm94ICgi56S+5ZOh5pWw44GM5aSa44GZ44GO44G+44GZIikKICAgIEVuZCBJZgogICAgRGltIHN0YXJ0X3llYXIgQXMgTG9uZyAgICAgICflubTvvIjlhYPjg4fjg7zjgr8y6KGM55uu77yJCiAgICBEaW0gc3RhcnRfZGF5IEFzIERhdGUgICAgICAgJ+S4iuiomOW5tOOBrjHmnIgx5pelCiAgICBEaW0gc2RhdGUgQXMgRGF0ZQogICAgRGltIGVkYXRlIEFzIERhdGUKICAgIERpbSBzeCBBcyBMb25nCiAgICBEaW0gZXggQXMgTG9uZwogICAgRGltIHNyZCBBcyBMb25nCiAgICBEaW0gZXJkIEFzIExvbmcKICAgIERpbSB2YWwgQXMgTG9uZwogICAgRGltIHBzbiBBcyBMb25nCiAgICBEaW0gaSBBcyBMb25nCiAgICBDYWxsIGluaXRfZGF0YQogICAgc3RhcnRfeWVhciA9IFllYXIoc2gxLkNlbGxzKDIsICJDIikuVmFsdWUpCiAgICBzdGFydF9kYXkgPSBEYXRlU2VyaWFsKHN0YXJ0X3llYXIsIDEsIDEpCiAgICAn5YWD44OH44O844K/6Kqt44G/6L6844G/CiAgICBGb3Igcm93MSA9IDIgVG8gbWF4cm93MQogICAgICAgIG5hbWUgPSBzaDEuQ2VsbHMocm93MSwgIkIiKS5WYWx1ZQogICAgICAgIHNkYXRlID0gc2gxLkNlbGxzKHJvdzEsICJDIikuVmFsdWUKICAgICAgICBlZGF0ZSA9IHNoMS5DZWxscyhyb3cxLCAiRCIpLlZhbHVlCiAgICAgICAgSWYgWWVhcihzZGF0ZSkgPD4gc3RhcnRfeWVhciBUaGVuCiAgICAgICAgICAgIENhbGwgZGF0YV9lcnJvcihyb3cxLCAi5bm044GM5LiN5LiA6Ie0IikKICAgICAgICBFbmQgSWYKICAgICAgICBJZiBzZGF0ZSA+PSBlZGF0ZSBUaGVuCiAgICAgICAgICAgIENhbGwgZGF0YV9lcnJvcihyb3cxLCAi6ZaL5aeL5pmC6ZaT44Go57WC5LqG5pmC6ZaT44Gu6aCG5bqP5LiN5q2jIikKICAgICAgICBFbmQgSWYKICAgICAgICBJZiBlZGF0ZSAtIHNkYXRlID49IDEjIFRoZW4KICAgICAgICAgICAgQ2FsbCBkYXRhX2Vycm9yKHJvdzEsICIyNOaZgumWk+S7peS4iuOBruWLpOWLmSIpCiAgICAgICAgRW5kIElmCiAgICAgICAgc3JkID0gRGF0ZURpZmYoImQiLCBzdGFydF9kYXksIHNkYXRlKQogICAgICAgIGVyZCA9IERhdGVEaWZmKCJkIiwgc3RhcnRfZGF5LCBlZGF0ZSkKICAgICAgICBzeCA9IHNyZCAqIDE0NDAgKyBIb3VyKHNkYXRlKSAqIDYwICsgTWludXRlKHNkYXRlKQogICAgICAgIGV4ID0gZXJkICogMTQ0MCArIEhvdXIoZWRhdGUpICogNjAgKyBNaW51dGUoZWRhdGUpCiAgICAgICAgRm9yIGkgPSBzeCBUbyBleCAtIDEKICAgICAgICAgICAgdGltZUFycihpKSA9IHRpbWVBcnIoaSkgT3IgZGljVChuYW1lKQogICAgICAgIE5leHQKICAgIE5leHQKICAgIHNoMi5Sb3dzKCIyOiIgJiBSb3dzLkNvdW50KS5DbGVhckNvbnRlbnRzCiAgICBzaDMuUm93cygiMzoiICYgUm93cy5Db3VudCkuQ2xlYXJDb250ZW50cwogICAgc2gyLkNvbHVtbnMoIkI6QiIpLk51bWJlckZvcm1hdExvY2FsID0gInl5eXkvbS9kIgogICAgc2gyLkNvbHVtbnMoIkQ6RCIpLk51bWJlckZvcm1hdExvY2FsID0gInl5eXkvbS9kIgogICAgc2gyLkNvbHVtbnMoIkM6QyIpLk51bWJlckZvcm1hdExvY2FsID0gImg6bW0iCiAgICBzaDIuQ29sdW1ucygiRTpFIikuTnVtYmVyRm9ybWF0TG9jYWwgPSAiaDptbSIKICAgIHNoMy5Db2x1bW5zKCJDOkMiKS5OdW1iZXJGb3JtYXRMb2NhbCA9ICJbaF06bW0iCiAgICBzaDMuQ29sdW1ucygiRTpFIikuTnVtYmVyRm9ybWF0TG9jYWwgPSAieXl5eS9tL2QiCiAgICBzaDMuQ29sdW1ucygiRjpGIikuTnVtYmVyRm9ybWF0TG9jYWwgPSAiaDptbSIKICAgIHNoMy5Db2x1bW5zKCJHOkciKS5OdW1iZXJGb3JtYXRMb2NhbCA9ICJ5eXl5L20vZCIKICAgIHNoMy5Db2x1bW5zKCJIOkgiKS5OdW1iZXJGb3JtYXRMb2NhbCA9ICJoOm1tIgogICAgcm93MiA9IDIKICAgIHJvdzMgPSAzCiAgICAn5Lit6ZaT44OH44O844K/5Ye65YqbCiAgICBzeCA9IC0xCiAgICBGb3IgaSA9IDAgVG8gVUJvdW5kKHRpbWVBcnIpCiAgICAgICAgdmFsID0gdGltZUFycihpKQogICAgICAgIHBzbiA9IDAKICAgICAgICBJZiB2YWwgPiAwIFRoZW4KICAgICAgICAgICAgcHNuID0gQ291bnRfQml0KHZhbCkKICAgICAgICAgICAgSWYgcHNuID4gMiBUaGVuCiAgICAgICAgICAgICAgICBJZiBzeCA9IC0xIFRoZW4KICAgICAgICAgICAgICAgICAgICBzeCA9IGkKICAgICAgICAgICAgICAgICAgICBleCA9IGkKICAgICAgICAgICAgICAgIEVsc2UKICAgICAgICAgICAgICAgICAgICBJZiB0aW1lQXJyKHN4KSA9IHZhbCBUaGVuIGV4ID0gaQogICAgICAgICAgICAgICAgRW5kIElmCiAgICAgICAgICAgIEVuZCBJZgogICAgICAgIEVuZCBJZgogICAgICAgIElmIHN4IDw+IC0xIFRoZW4KICAgICAgICAgICAgSWYgdGltZUFycihzeCkgPD4gdGltZUFycihpKSBUaGVuCiAgICAgICAgICAgICAgICBzaDIuQ2VsbHMocm93MiwgIkEiKS5WYWx1ZSA9IENvdW50X0JpdCh0aW1lQXJyKHN4KSkgICAgICAgICAgICAgJ+S6uuaVsAogICAgICAgICAgICAgICAgc2gyLkNlbGxzKHJvdzIsICJCIikuVmFsdWUgPSBEYXRlQWRkKCJkIiwgc3ggXCAxNDQwLCBzdGFydF9kYXkpICAgICfplovlp4vml6UKICAgICAgICAgICAgICAgIHNoMi5DZWxscyhyb3cyLCAiQyIpLlZhbHVlID0gKHN4IE1vZCAxNDQwKSAvIDE0NDAgICAgICAgICAgICAgICAn6ZaL5aeL5pmC6ZaTCiAgICAgICAgICAgICAgICBzaDIuQ2VsbHMocm93MiwgIkQiKS5WYWx1ZSA9IERhdGVBZGQoImQiLCBleCBcIDE0NDAsIHN0YXJ0X2RheSkgICAgJ+e1guS6huaXpQogICAgICAgICAgICAgICAgc2gyLkNlbGxzKHJvdzIsICJFIikuVmFsdWUgPSAoKGV4IE1vZCAxNDQwKSArIDEpIC8gMTQ0MCAgICAgICAgICfntYLkuobmmYLplpMKICAgICAgICAgICAgICAgIHNoMi5DZWxscyhyb3cyLCAiRiIpLlZhbHVlID0gZ2V0X21lbWJlcih0aW1lQXJyKHN4KSkgICAgICAgICAgICAn56S+5ZOhCiAgICAgICAgICAgICAgICBzeCA9IC0xCiAgICAgICAgICAgICAgICBleCA9IC0xCiAgICAgICAgICAgICAgICByb3cyID0gcm93MiArIDEKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICBOZXh0CiAgICAn5Lit6ZaT44OH44O844K/6ZmN6aCG44K944O844OICiAgICBtYXhyb3cyID0gcm93MiAtIDEKICAgIElmIG1heHJvdzIgPCAyIFRoZW4gRXhpdCBTdWIKICAgIERpbSByZyBBcyBSYW5nZQogICAgU2V0IHJnID0gc2gyLlJhbmdlKCJBMjpGIiAmIG1heHJvdzIpCiAgICByZy5Tb3J0IGtleTE6PXNoMi5SYW5nZSgiQTIiKSwgb3JkZXIxOj14bERlc2NlbmRpbmcsIEhlYWRlcjo9eGxObwogICAgJ+acgOe1gue1kOaenOWHuuWKmwogICAgRGltIG9sZHBzbiBBcyBMb25nOiBvbGRwc24gPSAwCiAgICBEaW0gZGNvdW50IEFzIExvbmcKICAgIERpbSBzcm93MyBBcyBMb25nCiAgICBEaW0gc3RpbWUgQXMgRGF0ZQogICAgRGltIGV0aW1lIEFzIERhdGUKICAgIERpbSBkdGltZXMgQXMgTG9uZwogICAgRGltIGRpZmYgQXMgTG9uZwogICAgRm9yIHJvdzIgPSAyIFRvIG1heHJvdzIKICAgICAgICBwc24gPSBzaDIuQ2VsbHMocm93MiwgIkEiKS5WYWx1ZQogICAgICAgIElmIHBzbiA8PiBvbGRwc24gVGhlbgogICAgICAgICAgICBDYWxsIG91dHB1dF90b3RhbChvbGRwc24sIHNyb3czLCBkY291bnQsIGR0aW1lcykKICAgICAgICAgICAgc3JvdzMgPSByb3czCiAgICAgICAgICAgIGRjb3VudCA9IDAKICAgICAgICAgICAgZHRpbWVzID0gMAogICAgICAgIEVuZCBJZgogICAgICAgIGRjb3VudCA9IGRjb3VudCArIDEKICAgICAgICBzaDMuQ2VsbHMocm93MywgIkQiKS5WYWx1ZSA9IGRjb3VudCAgICAgICAgICAgICAgICAgICAgICAgICAn5Zue5pWwCiAgICAgICAgc2gzLkNlbGxzKHJvdzMsICJFIikuVmFsdWUgPSBzaDIuQ2VsbHMocm93MiwgIkIiKS5WYWx1ZSAgICAgJ+mWi+Wni+aXpeS7mAogICAgICAgIHNoMy5DZWxscyhyb3czLCAiRiIpLlZhbHVlID0gc2gyLkNlbGxzKHJvdzIsICJDIikuVmFsdWUgICAgICfplovlp4vmmYLliLsKICAgICAgICBzaDMuQ2VsbHMocm93MywgIkciKS5WYWx1ZSA9IHNoMi5DZWxscyhyb3cyLCAiRCIpLlZhbHVlICAgICAn57WC5LqG5pel5LuYCiAgICAgICAgc2gzLkNlbGxzKHJvdzMsICJIIikuVmFsdWUgPSBzaDIuQ2VsbHMocm93MiwgIkUiKS5WYWx1ZSAgICAgJ+e1guS6huaZguWIuwogICAgICAgIHNoMy5DZWxscyhyb3czLCAiSSIpLlZhbHVlID0gc2gyLkNlbGxzKHJvdzIsICJGIikuVmFsdWUgICAgICfnpL7lk6EKCiAgICAgICAgc3RpbWUgPSBzaDIuQ2VsbHMocm93MiwgIkMiKS5WYWx1ZSAgJ+mWi+Wni+aZguWIuwogICAgICAgIGV0aW1lID0gc2gyLkNlbGxzKHJvdzIsICJFIikuVmFsdWUgICfntYLkuobmmYLliLsKICAgICAgICBkaWZmID0gSG91cihldGltZSkgKiA2MCArIE1pbnV0ZShldGltZSkgLSAoSG91cihzdGltZSkgKiA2MCArIE1pbnV0ZShzdGltZSkpCiAgICAgICAgSWYgZGlmZiA8IDAgVGhlbiBkaWZmID0gZGlmZiArIDE0NDAKICAgICAgICBkdGltZXMgPSBkdGltZXMgKyBkaWZmCiAgICAgICAgcm93MyA9IHJvdzMgKyAxCiAgICAgICAgb2xkcHNuID0gcHNuCiAgICBOZXh0CiAgICBDYWxsIG91dHB1dF90b3RhbChvbGRwc24sIHNyb3czLCBkY291bnQsIGR0aW1lcykKICAgIE1zZ0JveCAoIuWujOS6hiIpCkVuZCBTdWIKJ+WQiOioiOWHuuWKmwpQcml2YXRlIFN1YiBvdXRwdXRfdG90YWwoQnlWYWwgb2xkcHNuIEFzIExvbmcsIEJ5VmFsIHNyb3czIEFzIExvbmcsIEJ5VmFsIGRjb3VudCBBcyBMb25nLCBCeVZhbCBkdGltZXNfbG9uZyBBcyBMb25nKQogICAgSWYgb2xkcHNuID0gMCBUaGVuIEV4aXQgU3ViCiAgICBzaDMuQ2VsbHMoc3JvdzMsICJBIikuVmFsdWUgPSBvbGRwc24gICAgICAgICAgICAgICAgJ+S6uuaVsAogICAgc2gzLkNlbGxzKHNyb3czLCAiQiIpLlZhbHVlID0gZGNvdW50ICAgICAgICAgICAgICAgICflubTplpPlm57mlbAKICAgIHNoMy5DZWxscyhzcm93MywgIkMiKS5WYWx1ZSA9IGR0aW1lc19sb25nIC8gMTQ0MCAgICAn5bm06ZaT5pmC6ZaTCkVuZCBTdWIKJ+OCqOODqeODvOWHpueQhgpQcml2YXRlIFN1YiBkYXRhX2Vycm9yKEJ5VmFsIHdyb3csIEJ5VmFsIG1zZykKICAgIHNoMS5BY3RpdmF0ZQogICAgc2gxLkNlbGxzKHdyb3csICJDIikuU2VsZWN0CiAgICBNc2dCb3ggKG1zZykKICAgIEVuZApFbmQgU3ViCifnpL7lk6HlkI3lj5blvpcKUHJpdmF0ZSBGdW5jdGlvbiBnZXRfbWVtYmVyKEJ5VmFsIG51bSBBcyBMb25nKSBBcyBTdHJpbmcKICAgIERpbSBpIEFzIExvbmcKICAgIERpbSBvYnVmIEFzIFN0cmluZzogb2J1ZiA9ICIiCiAgICBEaW0gaXRlbXMgQXMgVmFyaWFudAogICAgRGltIGtleXMgQXMgVmFyaWFudAogICAgaXRlbXMgPSBkaWNULml0ZW1zCiAgICBrZXlzID0gZGljVC5rZXlzCiAgICBGb3IgaSA9IDAgVG8gZGljVC5Db3VudCAtIDEKICAgICAgICBJZiAobnVtIEFuZCBpdGVtcyhpKSkgPD4gMCBUaGVuCiAgICAgICAgICAgIElmIG9idWYgPSAiIiBUaGVuCiAgICAgICAgICAgICAgICBvYnVmID0ga2V5cyhpKQogICAgICAgICAgICBFbHNlCiAgICAgICAgICAgICAgICBvYnVmID0gb2J1ZiAmICIsIiAmIGtleXMoaSkKICAgICAgICAgICAgRW5kIElmCiAgICAgICAgRW5kIElmCiAgICBOZXh0CiAgICBnZXRfbWVtYmVyID0gb2J1ZgpFbmQgRnVuY3Rpb24KJ+aZgumWk+ODhuODvOODluODq+WIneacn+WMlgpQcml2YXRlIFN1YiBpbml0X2RhdGEoKQogICAgRGltIGkgQXMgTG9uZwogICAgRm9yIGkgPSAwIFRvIFVCb3VuZCh0aW1lQXJyKQogICAgICAgIHRpbWVBcnIoaSkgPSAwCiAgICBOZXh0CkVuZCBTdWIKJ+ODk+ODg+ODiOaVsOOCq+OCpuODs+ODiApQcml2YXRlIEZ1bmN0aW9uIENvdW50X0JpdChCeVZhbCBudW0gQXMgTG9uZykgQXMgTG9uZwogICAgRGltIHBvcyBBcyBMb25nOiBwb3MgPSAxCiAgICBEaW0gaSBBcyBMb25nCiAgICBDb3VudF9CaXQgPSAwCiAgICBGb3IgaSA9IDEgVG8gTUFYUFNOCiAgICAgICAgSWYgKG51bSBBbmQgcG9zKSA8PiAwIFRoZW4gQ291bnRfQml0ID0gQ291bnRfQml0ICsgMQogICAgICAgIHBvcyA9IHBvcyAqIDIKICAgIE5leHQKRW5kIEZ1bmN0aW9uCg==