#lang racket
 
(require (only-in srfi/1 unfold)
         (only-in math/statistics mean))
 
#| 練習問題 1:
“SPAM”という単語を 10 回表示するプログラムを作成しなさい。 |#
(define one
  (case-lambda
    ((n)
     (for-each display (unfold zero?
                               (lambda (x) "SPAM\n")
                               sub1
                               n)))
    (()
     (one 10))))
 
#| 練習問題 2
九九、三の段( 3 ~ 27 の 3 の倍数)を表示するプログラムを作成しなさい。 |#
(define two
  (case-lambda
    ((n)
     (for-each display (unfold (lambda (x) (> x 9))
                               (lambda (x) (format "~a~%" (* n x)))
                               add1
                               1)))
    (()
     (two 3))))
 
#| 練習問題 3
2 の 1 乗から 8 乗までを計算し表示するプログラムを作成しなさい。 |#
(define three
  (case-lambda
    ((base power)
     (for-each display (unfold (lambda (x) (> x power))
                               (lambda (x) (format "~a~%" (expt base x)))
                               add1
                               1)))
    (()
     (three 2 8))))
 
#| 練習問題 4
   7 の階乗を計算し、表示するプログラムを作成しなさい。
   ※ 	階乗:1 から n までの積。1 × 2 × 3 × ... ×( n - 1 )× n
 |#
(define four
  (case-lambda
    ((n)
     (printf "~a~%" (apply * (unfold zero? identity sub1 n))))
    (()
     (four 7))))
 
#| 練習問題 5
   整数を 10 回入力し、平均値を求めるプログラムを作成しなさい。
※ 	計算は整数で行い、小数点以下は切り捨ててよい。 |#
(define five
  (case-lambda
    ((n)
     (floor (mean (unfold zero? (lambda (x) (read)) sub1 n))))
    (()
     (five 10))))
 
#| 練習問題 6
   整数、0 か 1 を 10 回入力する。これを対戦成績と考え、0 を負け、1 を勝ちとして、勝ちの総数、負けの総数を表示するプログラムを作成しなさい。
 |#
(define six
  (case-lambda
    ((n)
     (let ((match-result (unfold zero? (lambda (x) (read)) sub1 n)))
       (printf "~a ~a~%" (count (lambda (x) (= x 1)) match-result)
               (count zero? match-result))))
    (()
     (six 10))))
 
#| 練習問題 7
   次のプログラムを作成しなさい。
   巨人、阪神戦で毎回の得点を入力する。(1 回 ~ 9 回)
   入力が終わったら、それぞれの得点とどちらが勝ったか、引き分けかを表示する。
   ※ 	試合は巨人の先行とする。
   1回表、巨人の得点は? 0
   1回裏、阪神の得点は? 0
   2回表、巨人の得点は? 0
   2回裏、阪神の得点は? 1
   :
   :
   :
   9回表、巨人の得点は? 0
   9回裏、阪神の得点は? 1
 
   巨人:5点, 阪神:6点
   阪神の勝ち |#
(define seven
  (case-lambda
    ((n)
     (let* ((games (unfold (lambda (x) (> x n))
                           (lambda (x)
                             `(,(begin (printf "~a回表、巨人の得点は?" x)
                                       (read))
                               ,(begin (printf "~a回裏、阪神の得点は?" x)
                                       (read))))
                           add1
                           1))
            (giants (apply + (map car games)))
            (tigers (apply + (map cadr games))))
       (printf "巨人 ~a点、阪神:~a点~%\t~aの勝ち~%" giants tigers (if (> tigers giants) "阪神" "巨人"))))
    (()
     (seven 9))))
 
#| 練習問題 8
   自然数(正の整数)を 10 回入力し、最大値を求めるプログラムを作成しなさい。
 |#
(define eight
  (case-lambda
    ((n)
     (apply max (unfold zero? (lambda (x) (read)) sub1 n)))
    (()
     (eight 10))))
 
#| 練習問題 9
整数を 10 回入力し、最大値と最小値を求めるプログラムを作成しなさい。 |#
(define nine
  (case-lambda
    ((n)
     (let ((lst (unfold zero? (lambda (x) (read)) sub1 n)))
       (values (apply max lst) (apply min lst))))
    (()
     (nine 10))))
 
#| 練習問題 10
個数を示す数値を入力し、その個数分だけ‘*’を表示するプログラムを作成しなさい。 |#
(define (ten n)
  (for-each display (unfold zero? (lambda (x) "*") sub1 n)))
 
#| 練習問題 11
   個数を示す数値を入力し、その個数分だけ 0 ~ 9 の数字を表示するプログラムを作成しなさい。数字は 0 , 1 , 2 , 3 , , の順に表示し、9  の次は 0 に戻るものとします。
     例:     14
  01234567890123  |#
(define (eleven n)
  (for-each display (unfold (lambda (x) (>= x n))
                            (lambda (x) (modulo x 10))
                            add1
                            0)))
 
#| 練習問題 12
10000 より小さい 3 の累乗( 3, 9, 27, , , )をすべて表示するプログラムを作成しなさい。 |#
(define twelve
  (case-lambda
    ((n d)
     (let ((y (floor (/ (log n) (log d)))))
       (for-each display (unfold (lambda (x) (> x y))
                                 (lambda (x) (format "~a~%" (expt d x)))
                                 add1
                                 1))))
    (()
     (twelve 10000 3))))
 
#| 練習問題 13
数値を繰り返し入力し、合計が 100 を超えたら入力を止めて合計を表示するプログラムを作成しなさい。 |#
(define thirteen
  (case-lambda
    ((n)
     (let ((i 0))
       (printf "~a~%" (last (unfold (lambda (x) (> i n))
                                    (lambda (x) (set! i (+ i (read)))
                                      i)
                                    identity
                                    0)))))
    (()
     (thirteen 100))))
 
#| 練習問題 14
   ストライク・カウントを数えるプログラムを作成しなさい。
   1球ごとにストライクかボールかを入力する。
   3ストライクまたは4ボールになったら入力を止め、ストライクとボールのカウントを表示する。
   ※ 	ストライクの場合は 1、ボールの場合は 2 を入力する。
   ストライク=1 or ボール=2 ?
   1
   ストライク=1 or ボール=2 ?
   2
   ストライク=1 or ボール=2 ?
   1
   ストライク=1 or ボール=2 ?
   1
1ボール,3ストライク |#
(define (fourteen)
  (let ((strike-max 3) (ball-max 4))
    (define (foo v)
      (println "ストライク=1 or ボール=2 ?")
      (let ((i (read)))
        (match v
          ((vector strike ball)
           (vector-set! v (sub1 i) (add1 (vector-ref v (sub1 i))))
           v))))
    (apply printf "~aボール, ~aストライク~%"
           (reverse
            (vector->list
             (last
              (unfold (lambda (x)
                        (match x
                          ((vector strike ball)
                           (or (= strike strike-max)
                               (= ball ball-max)))))
                      identity
                      foo
                      (foo (vector 0 0)))))))))
 
#| 練習問題 15
   前の問題に次の修正を加えなさい。
   1球ごとにストライク、ボール、ファウルの何れかを入力する。(残念ながらヒットにはなりません)
   ファウルの場合、2ストライクまではストライクにカウントするが、3ストライクにはならない。
   3ストライクまたは4ボールになったら入力を止め、ストライクとボールのカウントを表示する。
 |#
(define (fifteen)
  (let ((strike-max 3) (ball-max 4))
    (define (foo v)
      (println "ストライク=1 or ボール=2 ?")
      (let ((i (read)))
        (match v
          ((vector strike ball)
           (with-handlers ((exn:fail?
                            (lambda (exn)
                              (when (< strike 2)
                                (vector-set! v 0 (add1 (vector-ref v 0))))
                              v)))
             (vector-set! v (sub1 i) (add1 (vector-ref v (sub1 i))))
             v)))))
    (apply printf "~aボール, ~aストライク~%"
           (reverse
            (vector->list
             (last
              (unfold (lambda (x)
                        (match x
                          ((vector strike ball)
                           (or (= strike strike-max)
                               (= ball ball-max)))))
                      identity
                      foo
                      (foo (vector 0 0)))))))))
 
#| 練習問題 16
   入力された数が素数かどうかを判定するプログラムを作成しなさい。
※ 	判定する数は 4 以上としてよい。 |#
(define (sixteen n)
  (= (length (unfold (lambda (x)
                       (> x n))
                     (lambda (x)
                       (if (> (expt x 2) n)
                           n
                           x))
                     (lambda (x)
                       (let loop ((x x))
                         (if (zero? (modulo n x))
                             (add1 x)
                             (loop (add1 x)))))
                     2)) 1))
 
#| 練習問題 17
   2 以上の数値を入力し、素因数分解した結果を表示しなさい。
   例:
    20100
 2 2 3 5 5 67 |#
(define (seventeen n)
  (define (foo x)
    (let loop ((x x))
      (cond ((and (sixteen x) (zero? (modulo n x)))
             (set! n (quotient n x))
             x)
            (else (loop (add1 x))))))
  (for-each (lambda (x)
              (printf "~a " x)) (unfold (lambda (x)
                                          (> x (ceiling (sqrt n))))
                                        foo
                                        identity
                                        2))
  (newline))
 
#| 練習問題 18
   九九表(一の段~九の段)を表示するプログラムを作成しなさい。
※ 	printf(" %2d", x ); のように、%2d と記述すると表示が 2 桁に揃う。 |#
(define (eighteen)
  (display
   (string-join
    (unfold (lambda (x)
              (> (cadr x) 9))
            (lambda (x)
              (let ((x (car x)) (y (cadr x)))
                (format "~a × ~a = ~a~a" x y (* x y) (if (= x 9) "\n" " "))))
            (lambda (x)
              (let ((x (car x)) (y (cadr x)))
                (if (< x 9)
                    `(,(add1 x) ,y)
                    `(1 ,(add1 y)))))
            '(1 1)) ""))
  (newline))
 
#| 練習問題 19
数値を繰り返して入力し、0 が入力されたら入力を止め、それまでの合計を表示するプログラムを作成しなさい。 |#
(define (nineteen)
  (display (apply + (unfold zero?
                            identity
                            (lambda (x)
                              (read))
                            (read))))
  (newline))
 
#| 練習問題 20
   数値を繰り返して入力し、0 が入力されたら入力を止め、平均値を表示するプログラムを作成しなさい。
   ※ 	計算は整数で行い、小数点以下は切り捨ててよい。
   ※ 	最後に入力された 0 は平均に含めない。
   ※ 	少なくとも 1 回は入力が行われるものとする。(最初に 0 を入力してはいけない)
 |#
(define (twenty)
  (display (floor (mean (unfold zero?
                                identity
                                (lambda (x)
                                  (read))
                                (read)))))
  (newline))
 
#| 練習問題 21
   サイズを示す数値を入力し、何等かの文字で例のような三角形を表示するプログラムを作成しなさい。
   サイズ 4 の例
   $
   $$
   $$$
$$$$ |#
(define (twentyOne n)
  (display (string-join (unfold (lambda (x)
                                  (> x n))
                                (lambda (x)
                                  (string-append (make-string x #\$) "\n"))
                                add1
                                1) "")))
 
#| 練習問題 22
   サイズを示す数値を入力し、何等かの文字で、そのサイズの×印を表示するプログラムを作成しなさい。
   サイズ 3 の例
   X X
    X
   X X
   サイズ 4 の例
   X  X
    XX
    XX
   X  X
   サイズ 5 の例
   X   X
    X X
     X
    X X
X   X  |#
(define (twentyTwo n)
  (display (string-join (unfold (lambda (x)
                                  (> x (sub1 n)))
                                (lambda (x)
                                  (let ((s (make-string n #\space)))
                                    (string-set! s x #\X)
                                    (string-set! s (- n x 1) #\X)
                                    (string-append s "\n")))
                                add1
                                0) "")))
 
#| 練習問題 23
   フィボナッチ数列を表示するプログラムを作成しなさい。
   最初の2つの項を 0、1 とし、1000 まで( 1000 以下の項)を表示するものとします。
   ※ 	         フィボナッチ数列:
    それぞれの項がその直前の2つの項の和になっている数列のこと。
         例:0, 1, 1, 2, 3, 5, 8, 13, 21, ... |#
(define twentyThree
  (case-lambda
    ((n) (display (string-join
                   (unfold (lambda (x)
                             (> (car x) n))
                           (lambda (x)
                             (number->string (car x)))
                           (lambda (x)
                             `(,(cadr x) ,(+ (car x) (cadr x))))
                           '(0 1)) ", "))
         (newline))
    (()
     (twentyThree 1000))))

I2xhbmcgcmFja2V0CgoocmVxdWlyZSAob25seS1pbiBzcmZpLzEgdW5mb2xkKQogICAgICAgICAob25seS1pbiBtYXRoL3N0YXRpc3RpY3MgbWVhbikpCgojfCDnt7Tnv5LllY/poYwgMToK4oCcU1BBTeKAneOBqOOBhOOBhuWNmOiqnuOCkiAxMCDlm57ooajnpLrjgZnjgovjg5fjg63jgrDjg6njg6DjgpLkvZzmiJDjgZfjgarjgZXjgYTjgIIgfCMKKGRlZmluZSBvbmUKICAoY2FzZS1sYW1iZGEKICAgICgobikKICAgICAoZm9yLWVhY2ggZGlzcGxheSAodW5mb2xkIHplcm8/CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh4KSAiU1BBTVxuIikKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIHN1YjEKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIG4pKSkKICAgICgoKQogICAgIChvbmUgMTApKSkpCgojfCDnt7Tnv5LllY/poYwgMgrkuZ3kuZ3jgIHkuInjga7mrrUoIDMgfiAyNyDjga4gMyDjga7lgI3mlbAp44KS6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCIHwjCihkZWZpbmUgdHdvCiAgKGNhc2UtbGFtYmRhCiAgICAoKG4pCiAgICAgKGZvci1lYWNoIGRpc3BsYXkgKHVuZm9sZCAobGFtYmRhICh4KSAoPiB4IDkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoeCkgKGZvcm1hdCAifmF+JSIgKCogbiB4KSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBhZGQxCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAxKSkpCiAgICAoKCkKICAgICAodHdvIDMpKSkpCgojfCDnt7Tnv5LllY/poYwgMwoyIOOBriAxIOS5l+OBi+OCiSA4IOS5l+OBvuOBp+OCkuioiOeul+OBl+ihqOekuuOBmeOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAgiB8IwooZGVmaW5lIHRocmVlCiAgKGNhc2UtbGFtYmRhCiAgICAoKGJhc2UgcG93ZXIpCiAgICAgKGZvci1lYWNoIGRpc3BsYXkgKHVuZm9sZCAobGFtYmRhICh4KSAoPiB4IHBvd2VyKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKHgpIChmb3JtYXQgIn5hfiUiIChleHB0IGJhc2UgeCkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkMQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMSkpKQogICAgKCgpCiAgICAgKHRocmVlIDIgOCkpKSkKCiN8IOe3tOe/kuWVj+mhjCA0CiAgIDcg44Gu6ZqO5LmX44KS6KiI566X44GX44CB6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCCiAgIOKAuyAJ6ZqO5LmXOjEg44GL44KJIG4g44G+44Gn44Gu56mN44CCMSDDlyAyIMOXIDMgw5cgLi4uIMOXKCBuIC0gMSApw5cgbgogfCMKKGRlZmluZSBmb3VyCiAgKGNhc2UtbGFtYmRhCiAgICAoKG4pCiAgICAgKHByaW50ZiAifmF+JSIgKGFwcGx5ICogKHVuZm9sZCB6ZXJvPyBpZGVudGl0eSBzdWIxIG4pKSkpCiAgICAoKCkKICAgICAoZm91ciA3KSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKI3wg57e057+S5ZWP6aGMIDUKICAg5pW05pWw44KSIDEwIOWbnuWFpeWKm+OBl+OAgeW5s+Wdh+WApOOCkuaxguOCgeOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAggrigLsgCeioiOeul+OBr+aVtOaVsOOBp+ihjOOBhOOAgeWwj+aVsOeCueS7peS4i+OBr+WIh+OCiuaNqOOBpuOBpuOCiOOBhOOAgiB8IwooZGVmaW5lIGZpdmUKICAoY2FzZS1sYW1iZGEKICAgICgobikKICAgICAoZmxvb3IgKG1lYW4gKHVuZm9sZCB6ZXJvPyAobGFtYmRhICh4KSAocmVhZCkpIHN1YjEgbikpKSkKICAgICgoKQogICAgIChmaXZlIDEwKSkpKQoKI3wg57e057+S5ZWP6aGMIDYKICAg5pW05pWw44CBMCDjgYsgMSDjgpIgMTAg5Zue5YWl5Yqb44GZ44KL44CC44GT44KM44KS5a++5oim5oiQ57i+44Go6ICD44GI44CBMCDjgpLosqDjgZHjgIExIOOCkuWLneOBoeOBqOOBl+OBpuOAgeWLneOBoeOBrue3j+aVsOOAgeiyoOOBkeOBrue3j+aVsOOCkuihqOekuuOBmeOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAggogfCMKKGRlZmluZSBzaXgKICAoY2FzZS1sYW1iZGEKICAgICgobikKICAgICAobGV0ICgobWF0Y2gtcmVzdWx0ICh1bmZvbGQgemVybz8gKGxhbWJkYSAoeCkgKHJlYWQpKSBzdWIxIG4pKSkKICAgICAgIChwcmludGYgIn5hIH5hfiUiIChjb3VudCAobGFtYmRhICh4KSAoPSB4IDEpKSBtYXRjaC1yZXN1bHQpCiAgICAgICAgICAgICAgIChjb3VudCB6ZXJvPyBtYXRjaC1yZXN1bHQpKSkpCiAgICAoKCkKICAgICAoc2l4IDEwKSkpKQoKI3wg57e057+S5ZWP6aGMIDcKICAg5qyh44Gu44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCCiAgIOW3qOS6uuOAgemYquelnuaIpuOBp+avjuWbnuOBruW+l+eCueOCkuWFpeWKm+OBmeOCi+OAgigxIOWbniB+IDkg5ZueKQogICDlhaXlipvjgYzntYLjgo/jgaPjgZ/jgonjgIHjgZ3jgozjgZ7jgozjga7lvpfngrnjgajjganjgaHjgonjgYzli53jgaPjgZ/jgYvjgIHlvJXjgY3liIbjgZHjgYvjgpLooajnpLrjgZnjgovjgIIKICAg4oC7IAnoqablkIjjga/lt6jkurrjga7lhYjooYzjgajjgZnjgovjgIIKICAgMeWbnuihqOOAgeW3qOS6uuOBruW+l+eCueOBrz8gMAogICAx5Zue6KOP44CB6Ziq56We44Gu5b6X54K544GvPyAwCiAgIDLlm57ooajjgIHlt6jkurrjga7lvpfngrnjga8/IDAKICAgMuWbnuijj+OAgemYquelnuOBruW+l+eCueOBrz8gMQogICA6CiAgIDoKICAgOgogICA55Zue6KGo44CB5beo5Lq644Gu5b6X54K544GvPyAwCiAgIDnlm57oo4/jgIHpmKrnpZ7jga7lvpfngrnjga8/IDEKICAgCiAgIOW3qOS6ujo154K5LCDpmKrnpZ46NueCuQogICDpmKrnpZ7jga7li53jgaEgfCMKKGRlZmluZSBzZXZlbgogIChjYXNlLWxhbWJkYQogICAgKChuKQogICAgIChsZXQqICgoZ2FtZXMgKHVuZm9sZCAobGFtYmRhICh4KSAoPiB4IG4pKQogICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGAoLChiZWdpbiAocHJpbnRmICJ+YeWbnuihqOOAgeW3qOS6uuOBruW+l+eCueOBrz8iIHgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChyZWFkKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICwoYmVnaW4gKHByaW50ZiAifmHlm57oo4/jgIHpmKrnpZ7jga7lvpfngrnjga8/IiB4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAocmVhZCkpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkMQogICAgICAgICAgICAgICAgICAgICAgICAgICAxKSkKICAgICAgICAgICAgKGdpYW50cyAoYXBwbHkgKyAobWFwIGNhciBnYW1lcykpKQogICAgICAgICAgICAodGlnZXJzIChhcHBseSArIChtYXAgY2FkciBnYW1lcykpKSkKICAgICAgIChwcmludGYgIuW3qOS6uiB+YeeCueOAgemYquelnjp+YeeCuX4lXHR+YeOBruWLneOBoX4lIiBnaWFudHMgdGlnZXJzIChpZiAoPiB0aWdlcnMgZ2lhbnRzKSAi6Ziq56WeIiAi5beo5Lq6IikpKSkKICAgICgoKQogICAgIChzZXZlbiA5KSkpKQoKI3wg57e057+S5ZWP6aGMIDgKICAg6Ieq54S25pWwKOato+OBruaVtOaVsCnjgpIgMTAg5Zue5YWl5Yqb44GX44CB5pyA5aSn5YCk44KS5rGC44KB44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCCiB8IwooZGVmaW5lIGVpZ2h0CiAgKGNhc2UtbGFtYmRhCiAgICAoKG4pCiAgICAgKGFwcGx5IG1heCAodW5mb2xkIHplcm8/IChsYW1iZGEgKHgpIChyZWFkKSkgc3ViMSBuKSkpCiAgICAoKCkKICAgICAoZWlnaHQgMTApKSkpCgojfCDnt7Tnv5LllY/poYwgOQrmlbTmlbDjgpIgMTAg5Zue5YWl5Yqb44GX44CB5pyA5aSn5YCk44Go5pyA5bCP5YCk44KS5rGC44KB44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCIHwjCihkZWZpbmUgbmluZQogIChjYXNlLWxhbWJkYQogICAgKChuKQogICAgIChsZXQgKChsc3QgKHVuZm9sZCB6ZXJvPyAobGFtYmRhICh4KSAocmVhZCkpIHN1YjEgbikpKQogICAgICAgKHZhbHVlcyAoYXBwbHkgbWF4IGxzdCkgKGFwcGx5IG1pbiBsc3QpKSkpCiAgICAoKCkKICAgICAobmluZSAxMCkpKSkKCiN8IOe3tOe/kuWVj+mhjCAxMArlgIvmlbDjgpLnpLrjgZnmlbDlgKTjgpLlhaXlipvjgZfjgIHjgZ3jga7lgIvmlbDliIbjgaDjgZHigJgq4oCZ44KS6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCIHwjCihkZWZpbmUgKHRlbiBuKQogIChmb3ItZWFjaCBkaXNwbGF5ICh1bmZvbGQgemVybz8gKGxhbWJkYSAoeCkgIioiKSBzdWIxIG4pKSkKCiN8IOe3tOe/kuWVj+mhjCAxMQogICDlgIvmlbDjgpLnpLrjgZnmlbDlgKTjgpLlhaXlipvjgZfjgIHjgZ3jga7lgIvmlbDliIbjgaDjgZEgMCB+IDkg44Gu5pWw5a2X44KS6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CC5pWw5a2X44GvIDAgLCAxICwgMiAsIDMgLCAsIOOBrumghuOBq+ihqOekuuOBl+OAgTkgIOOBruasoeOBryAwIOOBq+aIu+OCi+OCguOBruOBqOOBl+OBvuOBmeOAggogICAgIOS+izogICAgIDE0CiAgMDEyMzQ1Njc4OTAxMjMgIHwjCihkZWZpbmUgKGVsZXZlbiBuKQogIChmb3ItZWFjaCBkaXNwbGF5ICh1bmZvbGQgKGxhbWJkYSAoeCkgKD49IHggbikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh4KSAobW9kdWxvIHggMTApKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkMQogICAgICAgICAgICAgICAgICAgICAgICAgICAgMCkpKQoKI3wg57e057+S5ZWP6aGMIDEyCjEwMDAwIOOCiOOCiuWwj+OBleOBhCAzIOOBrue0r+S5lyggMywgOSwgMjcsICwgLCAp44KS44GZ44G544Gm6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCIHwjCihkZWZpbmUgdHdlbHZlCiAgKGNhc2UtbGFtYmRhCiAgICAoKG4gZCkKICAgICAobGV0ICgoeSAoZmxvb3IgKC8gKGxvZyBuKSAobG9nIGQpKSkpKQogICAgICAgKGZvci1lYWNoIGRpc3BsYXkgKHVuZm9sZCAobGFtYmRhICh4KSAoPiB4IHkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh4KSAoZm9ybWF0ICJ+YX4lIiAoZXhwdCBkIHgpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkMQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAxKSkpKQogICAgKCgpCiAgICAgKHR3ZWx2ZSAxMDAwMCAzKSkpKQoKI3wg57e057+S5ZWP6aGMIDEzCuaVsOWApOOCkue5sOOCiui/lOOBl+WFpeWKm+OBl+OAgeWQiOioiOOBjCAxMDAg44KS6LaF44GI44Gf44KJ5YWl5Yqb44KS5q2i44KB44Gm5ZCI6KiI44KS6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCIHwjCihkZWZpbmUgdGhpcnRlZW4KICAoY2FzZS1sYW1iZGEKICAgICgobikKICAgICAobGV0ICgoaSAwKSkKICAgICAgIChwcmludGYgIn5hfiUiIChsYXN0ICh1bmZvbGQgKGxhbWJkYSAoeCkgKD4gaSBuKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoeCkgKHNldCEgaSAoKyBpIChyZWFkKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWRlbnRpdHkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgMCkpKSkpCiAgICAoKCkKICAgICAodGhpcnRlZW4gMTAwKSkpKQoKI3wg57e057+S5ZWP6aGMIDE0CiAgIOOCueODiOODqeOCpOOCr+ODu+OCq+OCpuODs+ODiOOCkuaVsOOBiOOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAggogICAx55CD44GU44Go44Gr44K544OI44Op44Kk44Kv44GL44Oc44O844Or44GL44KS5YWl5Yqb44GZ44KL44CCCiAgIDPjgrnjg4jjg6njgqTjgq/jgb7jgZ/jga8044Oc44O844Or44Gr44Gq44Gj44Gf44KJ5YWl5Yqb44KS5q2i44KB44CB44K544OI44Op44Kk44Kv44Go44Oc44O844Or44Gu44Kr44Km44Oz44OI44KS6KGo56S644GZ44KL44CCCiAgIOKAuyAJ44K544OI44Op44Kk44Kv44Gu5aC05ZCI44GvIDHjgIHjg5zjg7zjg6vjga7loLTlkIjjga8gMiDjgpLlhaXlipvjgZnjgovjgIIKICAg44K544OI44Op44Kk44KvPTEgb3Ig44Oc44O844OrPTIgPwogICAxCiAgIOOCueODiOODqeOCpOOCrz0xIG9yIOODnOODvOODqz0yID8KICAgMgogICDjgrnjg4jjg6njgqTjgq89MSBvciDjg5zjg7zjg6s9MiA/CiAgIDEKICAg44K544OI44Op44Kk44KvPTEgb3Ig44Oc44O844OrPTIgPwogICAxCjHjg5zjg7zjg6ssM+OCueODiOODqeOCpOOCryB8IwooZGVmaW5lIChmb3VydGVlbikKICAobGV0ICgoc3RyaWtlLW1heCAzKSAoYmFsbC1tYXggNCkpCiAgICAoZGVmaW5lIChmb28gdikKICAgICAgKHByaW50bG4gIuOCueODiOODqeOCpOOCrz0xIG9yIOODnOODvOODqz0yID8iKQogICAgICAobGV0ICgoaSAocmVhZCkpKQogICAgICAgIChtYXRjaCB2CiAgICAgICAgICAoKHZlY3RvciBzdHJpa2UgYmFsbCkKICAgICAgICAgICAodmVjdG9yLXNldCEgdiAoc3ViMSBpKSAoYWRkMSAodmVjdG9yLXJlZiB2IChzdWIxIGkpKSkpCiAgICAgICAgICAgdikpKSkKICAgIChhcHBseSBwcmludGYgIn5h44Oc44O844OrLCB+YeOCueODiOODqeOCpOOCr34lIgogICAgICAgICAgIChyZXZlcnNlCiAgICAgICAgICAgICh2ZWN0b3ItPmxpc3QKICAgICAgICAgICAgIChsYXN0CiAgICAgICAgICAgICAgKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAobWF0Y2ggeAogICAgICAgICAgICAgICAgICAgICAgICAgICgodmVjdG9yIHN0cmlrZSBiYWxsKQogICAgICAgICAgICAgICAgICAgICAgICAgICAob3IgKD0gc3RyaWtlIHN0cmlrZS1tYXgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoPSBiYWxsIGJhbGwtbWF4KSkpKSkKICAgICAgICAgICAgICAgICAgICAgIGlkZW50aXR5CiAgICAgICAgICAgICAgICAgICAgICBmb28KICAgICAgICAgICAgICAgICAgICAgIChmb28gKHZlY3RvciAwIDApKSkpKSkpKSkKCiN8IOe3tOe/kuWVj+mhjCAxNQogICDliY3jga7llY/poYzjgavmrKHjga7kv67mraPjgpLliqDjgYjjgarjgZXjgYTjgIIKICAgMeeQg+OBlOOBqOOBq+OCueODiOODqeOCpOOCr+OAgeODnOODvOODq+OAgeODleOCoeOCpuODq+OBruS9leOCjOOBi+OCkuWFpeWKm+OBmeOCi+OAgijmrovlv7XjgarjgYzjgonjg5Ljg4Pjg4jjgavjga/jgarjgorjgb7jgZvjgpMpCiAgIOODleOCoeOCpuODq+OBruWgtOWQiOOAgTLjgrnjg4jjg6njgqTjgq/jgb7jgafjga/jgrnjg4jjg6njgqTjgq/jgavjgqvjgqbjg7Pjg4jjgZnjgovjgYzjgIEz44K544OI44Op44Kk44Kv44Gr44Gv44Gq44KJ44Gq44GE44CCCiAgIDPjgrnjg4jjg6njgqTjgq/jgb7jgZ/jga8044Oc44O844Or44Gr44Gq44Gj44Gf44KJ5YWl5Yqb44KS5q2i44KB44CB44K544OI44Op44Kk44Kv44Go44Oc44O844Or44Gu44Kr44Km44Oz44OI44KS6KGo56S644GZ44KL44CCCiB8IwooZGVmaW5lIChmaWZ0ZWVuKQogIChsZXQgKChzdHJpa2UtbWF4IDMpIChiYWxsLW1heCA0KSkKICAgIChkZWZpbmUgKGZvbyB2KQogICAgICAocHJpbnRsbiAi44K544OI44Op44Kk44KvPTEgb3Ig44Oc44O844OrPTIgPyIpCiAgICAgIChsZXQgKChpIChyZWFkKSkpCiAgICAgICAgKG1hdGNoIHYKICAgICAgICAgICgodmVjdG9yIHN0cmlrZSBiYWxsKQogICAgICAgICAgICh3aXRoLWhhbmRsZXJzICgoZXhuOmZhaWw/CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhIChleG4pCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICh3aGVuICg8IHN0cmlrZSAyKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICh2ZWN0b3Itc2V0ISB2IDAgKGFkZDEgKHZlY3Rvci1yZWYgdiAwKSkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICB2KSkpCiAgICAgICAgICAgICAodmVjdG9yLXNldCEgdiAoc3ViMSBpKSAoYWRkMSAodmVjdG9yLXJlZiB2IChzdWIxIGkpKSkpCiAgICAgICAgICAgICB2KSkpKSkKICAgIChhcHBseSBwcmludGYgIn5h44Oc44O844OrLCB+YeOCueODiOODqeOCpOOCr34lIgogICAgICAgICAgIChyZXZlcnNlCiAgICAgICAgICAgICh2ZWN0b3ItPmxpc3QKICAgICAgICAgICAgIChsYXN0CiAgICAgICAgICAgICAgKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAobWF0Y2ggeAogICAgICAgICAgICAgICAgICAgICAgICAgICgodmVjdG9yIHN0cmlrZSBiYWxsKQogICAgICAgICAgICAgICAgICAgICAgICAgICAob3IgKD0gc3RyaWtlIHN0cmlrZS1tYXgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoPSBiYWxsIGJhbGwtbWF4KSkpKSkKICAgICAgICAgICAgICAgICAgICAgIGlkZW50aXR5CiAgICAgICAgICAgICAgICAgICAgICBmb28KICAgICAgICAgICAgICAgICAgICAgIChmb28gKHZlY3RvciAwIDApKSkpKSkpKSkKCiN8IOe3tOe/kuWVj+mhjCAxNgogICDlhaXlipvjgZXjgozjgZ/mlbDjgYzntKDmlbDjgYvjganjgYbjgYvjgpLliKTlrprjgZnjgovjg5fjg63jgrDjg6njg6DjgpLkvZzmiJDjgZfjgarjgZXjgYTjgIIK4oC7IAnliKTlrprjgZnjgovmlbDjga8gNCDku6XkuIrjgajjgZfjgabjgojjgYTjgIIgfCMKKGRlZmluZSAoc2l4dGVlbiBuKQogICg9IChsZW5ndGggKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICg+IHggbikpCiAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgICAgICAgICAgKGlmICg+IChleHB0IHggMikgbikKICAgICAgICAgICAgICAgICAgICAgICAgICAgbgogICAgICAgICAgICAgICAgICAgICAgICAgICB4KSkKICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoeCkKICAgICAgICAgICAgICAgICAgICAgICAobGV0IGxvb3AgKCh4IHgpKQogICAgICAgICAgICAgICAgICAgICAgICAgKGlmICh6ZXJvPyAobW9kdWxvIG4geCkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGFkZDEgeCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAobG9vcCAoYWRkMSB4KSkpKSkKICAgICAgICAgICAgICAgICAgICAgMikpIDEpKQoKI3wg57e057+S5ZWP6aGMIDE3CiAgIDIg5Lul5LiK44Gu5pWw5YCk44KS5YWl5Yqb44GX44CB57Sg5Zug5pWw5YiG6Kej44GX44Gf57WQ5p6c44KS6KGo56S644GX44Gq44GV44GE44CCCiAgIOS+izoKICAgIDIwMTAwCiAyIDIgMyA1IDUgNjcgfCMKKGRlZmluZSAoc2V2ZW50ZWVuIG4pCiAgKGRlZmluZSAoZm9vIHgpCiAgICAobGV0IGxvb3AgKCh4IHgpKQogICAgICAoY29uZCAoKGFuZCAoc2l4dGVlbiB4KSAoemVybz8gKG1vZHVsbyBuIHgpKSkKICAgICAgICAgICAgIChzZXQhIG4gKHF1b3RpZW50IG4geCkpCiAgICAgICAgICAgICB4KQogICAgICAgICAgICAoZWxzZSAobG9vcCAoYWRkMSB4KSkpKSkpCiAgKGZvci1lYWNoIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgKHByaW50ZiAifmEgIiB4KSkgKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAoPiB4IChjZWlsaW5nIChzcXJ0IG4pKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBmb28KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlkZW50aXR5CiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAyKSkKICAobmV3bGluZSkpCgojfCDnt7Tnv5LllY/poYwgMTgKICAg5Lmd5Lmd6KGoKOS4gOOBruautX7kuZ3jga7mrrUp44KS6KGo56S644GZ44KL44OX44Ot44Kw44Op44Og44KS5L2c5oiQ44GX44Gq44GV44GE44CCCuKAuyAJcHJpbnRmKCIgJTJkIiwgeCApOyDjga7jgojjgYbjgavjgIElMmQg44Go6KiY6L+w44GZ44KL44Go6KGo56S644GMIDIg5qGB44Gr5o+D44GG44CCIHwjCihkZWZpbmUgKGVpZ2h0ZWVuKQogIChkaXNwbGF5CiAgIChzdHJpbmctam9pbgogICAgKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICg+IChjYWRyIHgpIDkpKQogICAgICAgICAgICAobGFtYmRhICh4KQogICAgICAgICAgICAgIChsZXQgKCh4IChjYXIgeCkpICh5IChjYWRyIHgpKSkKICAgICAgICAgICAgICAgIChmb3JtYXQgIn5hIMOXIH5hID0gfmF+YSIgeCB5ICgqIHggeSkgKGlmICg9IHggOSkgIlxuIiAiICIpKSkpCiAgICAgICAgICAgIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgKGxldCAoKHggKGNhciB4KSkgKHkgKGNhZHIgeCkpKQogICAgICAgICAgICAgICAgKGlmICg8IHggOSkKICAgICAgICAgICAgICAgICAgICBgKCwoYWRkMSB4KSAseSkKICAgICAgICAgICAgICAgICAgICBgKDEgLChhZGQxIHkpKSkpKQogICAgICAgICAgICAnKDEgMSkpICIiKSkKICAobmV3bGluZSkpCgojfCDnt7Tnv5LllY/poYwgMTkK5pWw5YCk44KS57mw44KK6L+U44GX44Gm5YWl5Yqb44GX44CBMCDjgYzlhaXlipvjgZXjgozjgZ/jgonlhaXlipvjgpLmraLjgoHjgIHjgZ3jgozjgb7jgafjga7lkIjoqIjjgpLooajnpLrjgZnjgovjg5fjg63jgrDjg6njg6DjgpLkvZzmiJDjgZfjgarjgZXjgYTjgIIgfCMKKGRlZmluZSAobmluZXRlZW4pCiAgKGRpc3BsYXkgKGFwcGx5ICsgKHVuZm9sZCB6ZXJvPwogICAgICAgICAgICAgICAgICAgICAgICAgICAgaWRlbnRpdHkKICAgICAgICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChyZWFkKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgIChyZWFkKSkpKQogIChuZXdsaW5lKSkKCiN8IOe3tOe/kuWVj+mhjCAyMAogICDmlbDlgKTjgpLnubDjgorov5TjgZfjgablhaXlipvjgZfjgIEwIOOBjOWFpeWKm+OBleOCjOOBn+OCieWFpeWKm+OCkuatouOCgeOAgeW5s+Wdh+WApOOCkuihqOekuuOBmeOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAggogICDigLsgCeioiOeul+OBr+aVtOaVsOOBp+ihjOOBhOOAgeWwj+aVsOeCueS7peS4i+OBr+WIh+OCiuaNqOOBpuOBpuOCiOOBhOOAggogICDigLsgCeacgOW+jOOBq+WFpeWKm+OBleOCjOOBnyAwIOOBr+W5s+Wdh+OBq+WQq+OCgeOBquOBhOOAggogICDigLsgCeWwkeOBquOBj+OBqOOCgiAxIOWbnuOBr+WFpeWKm+OBjOihjOOCj+OCjOOCi+OCguOBruOBqOOBmeOCi+OAgijmnIDliJ3jgasgMCDjgpLlhaXlipvjgZfjgabjga/jgYTjgZHjgarjgYQpCiB8IwooZGVmaW5lICh0d2VudHkpCiAgKGRpc3BsYXkgKGZsb29yIChtZWFuICh1bmZvbGQgemVybz8KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZGVudGl0eQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAocmVhZCkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHJlYWQpKSkpKQogIChuZXdsaW5lKSkKCiN8IOe3tOe/kuWVj+mhjCAyMQogICDjgrXjgqTjgrrjgpLnpLrjgZnmlbDlgKTjgpLlhaXlipvjgZfjgIHkvZXnrYnjgYvjga7mloflrZfjgafkvovjga7jgojjgYbjgarkuInop5LlvaLjgpLooajnpLrjgZnjgovjg5fjg63jgrDjg6njg6DjgpLkvZzmiJDjgZfjgarjgZXjgYTjgIIKICAg44K144Kk44K6IDQg44Gu5L6LCiAgICQKICAgJCQKICAgJCQkCiQkJCQgfCMKKGRlZmluZSAodHdlbnR5T25lIG4pCiAgKGRpc3BsYXkgKHN0cmluZy1qb2luICh1bmZvbGQgKGxhbWJkYSAoeCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICg+IHggbikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoeCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzdHJpbmctYXBwZW5kIChtYWtlLXN0cmluZyB4ICNcJCkgIlxuIikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgYWRkMQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIDEpICIiKSkpCgojfCDnt7Tnv5LllY/poYwgMjIKICAg44K144Kk44K644KS56S644GZ5pWw5YCk44KS5YWl5Yqb44GX44CB5L2V562J44GL44Gu5paH5a2X44Gn44CB44Gd44Gu44K144Kk44K644Guw5fljbDjgpLooajnpLrjgZnjgovjg5fjg63jgrDjg6njg6DjgpLkvZzmiJDjgZfjgarjgZXjgYTjgIIKICAg44K144Kk44K6IDMg44Gu5L6LCiAgIFggWAogICAgWAogICBYIFgKICAg44K144Kk44K6IDQg44Gu5L6LCiAgIFggIFgKICAgIFhYCiAgICBYWAogICBYICBYCiAgIOOCteOCpOOCuiA1IOOBruS+iwogICBYICAgWAogICAgWCBYCiAgICAgWAogICAgWCBYClggICBYICB8IwooZGVmaW5lICh0d2VudHlUd28gbikKICAoZGlzcGxheSAoc3RyaW5nLWpvaW4gKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKD4geCAoc3ViMSBuKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKGxhbWJkYSAoeCkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChsZXQgKChzIChtYWtlLXN0cmluZyBuICNcc3BhY2UpKSkKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKHN0cmluZy1zZXQhIHMgeCAjXFgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzdHJpbmctc2V0ISBzICgtIG4geCAxKSAjXFgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIChzdHJpbmctYXBwZW5kIHMgIlxuIikpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGFkZDEKICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAwKSAiIikpKQoKI3wg57e057+S5ZWP6aGMIDIzCiAgIOODleOCo+ODnOODiuODg+ODgeaVsOWIl+OCkuihqOekuuOBmeOCi+ODl+ODreOCsOODqeODoOOCkuS9nOaIkOOBl+OBquOBleOBhOOAggogICDmnIDliJ3jga4y44Gk44Gu6aCF44KSIDDjgIExIOOBqOOBl+OAgTEwMDAg44G+44GnKCAxMDAwIOS7peS4i+OBrumghSnjgpLooajnpLrjgZnjgovjgoLjga7jgajjgZfjgb7jgZnjgIIKICAg4oC7IAkgICAgICAgICDjg5XjgqPjg5zjg4rjg4Pjg4HmlbDliJc6CiAgICDjgZ3jgozjgZ7jgozjga7poIXjgYzjgZ3jga7nm7TliY3jga4y44Gk44Gu6aCF44Gu5ZKM44Gr44Gq44Gj44Gm44GE44KL5pWw5YiX44Gu44GT44Go44CCCiAgICAgICAgIOS+izowLCAxLCAxLCAyLCAzLCA1LCA4LCAxMywgMjEsIC4uLiB8IwooZGVmaW5lIHR3ZW50eVRocmVlCiAgKGNhc2UtbGFtYmRhCiAgICAoKG4pIChkaXNwbGF5IChzdHJpbmctam9pbgogICAgICAgICAgICAgICAgICAgKHVuZm9sZCAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICg+IChjYXIgeCkgbikpCiAgICAgICAgICAgICAgICAgICAgICAgICAgIChsYW1iZGEgKHgpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgKG51bWJlci0+c3RyaW5nIChjYXIgeCkpKQogICAgICAgICAgICAgICAgICAgICAgICAgICAobGFtYmRhICh4KQogICAgICAgICAgICAgICAgICAgICAgICAgICAgIGAoLChjYWRyIHgpICwoKyAoY2FyIHgpIChjYWRyIHgpKSkpCiAgICAgICAgICAgICAgICAgICAgICAgICAgICcoMCAxKSkgIiwgIikpCiAgICAgICAgIChuZXdsaW5lKSkKICAgICgoKQogICAgICh0d2VudHlUaHJlZSAxMDAwKSkpKQ==