-
Notifications
You must be signed in to change notification settings - Fork 1
/
Starobinsky.nb
6371 lines (6281 loc) · 324 KB
/
Starobinsky.nb
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
(* Content-type: application/vnd.wolfram.mathematica *)
(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)
(* CreatedBy='Mathematica 11.1' *)
(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[ 158, 7]
NotebookDataLength[ 325019, 6363]
NotebookOptionsPosition[ 318646, 6256]
NotebookOutlinePosition[ 319075, 6273]
CellTagsIndexPosition[ 319032, 6270]
WindowFrame->Normal*)
(* Beginning of Notebook Content *)
Notebook[{
Cell[CellGroupData[{
Cell["Starobinsky Potential", "Title",
CellChangeTimes->{{3.833726672445983*^9, 3.833726680615492*^9},
3.833808614052226*^9},ExpressionUUID->"f0468a3b-4e2c-438d-8d23-\
a4697fb7f3a0"],
Cell[TextData[StyleBox["This notebook is a part of my Diploma Thesis with \
title \[OpenCurlyDoubleQuote]Swampland Conjectures and Constraints on \
Inflation\[CloseCurlyDoubleQuote] . The knowledge of the theoretical results \
is important, if someone wishes to follow the presented results in this \
notebook. My Thesis can be found in an other file in my GitHub repository.", \
"Text"]], "Title",
CellChangeTimes->{{3.8139916309962587`*^9, 3.8139916703348756`*^9},
3.8142432691901627`*^9, {3.8337238370486593`*^9, 3.833723841009004*^9}, {
3.8337240079087367`*^9, 3.8337240083209324`*^9}, {3.833724103618961*^9,
3.833724489819663*^9}, {3.8337265561813602`*^9,
3.8337265795220137`*^9}},ExpressionUUID->"4a041934-68be-44e4-9018-\
5787af6a0d41"],
Cell["\<\
Definition of the Potential and Introduction of the Slow-Roll parameters\
\>", "Chapter",
CellChangeTimes->{{3.8337243327093415`*^9, 3.833724332719351*^9}, {
3.8337245052396827`*^9,
3.8337245742099442`*^9}},ExpressionUUID->"8f41a0c4-c825-44a1-bc2e-\
0fb2fa4d4171"],
Cell[CellGroupData[{
Cell[TextData[StyleBox["In this section we will introduce the potential and \
the slow-roll parameters", "Text"]], "Chapter",
CellChangeTimes->{{3.8337243327093415`*^9, 3.833724332719351*^9}, {
3.8337245052396827`*^9,
3.8337246158795776`*^9}},ExpressionUUID->"90e9610d-38e0-4d6d-97d5-\
b2d5301278fd"],
Cell[BoxData[{
RowBox[{
RowBox[{"v", "[", "x_", "]"}], ":=",
RowBox[{
RowBox[{"\[CapitalLambda]", "^", "4"}], "*",
RowBox[{
RowBox[{"(",
RowBox[{"1", "-",
RowBox[{"Exp", "[",
RowBox[{
RowBox[{"-",
SqrtBox[
FractionBox["2", "3"]]}], "k", "*", "x"}], "]"}]}], ")"}], "^",
"2"}]}]}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]1", "=",
RowBox[{
RowBox[{
FractionBox["a",
RowBox[{"2", "*",
RowBox[{"k", "^", "2"}]}]], "*",
RowBox[{
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"v", "'"}], "[", "x", "]"}], "/",
RowBox[{"v", "[", "x", "]"}]}], ")"}], "^", "2"}]}], "//", " ",
"Simplify"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]2", "=",
RowBox[{
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["a",
RowBox[{"k", "^", "2"}]]}], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"v", "''"}], "[", "x", "]"}], "/",
RowBox[{"v", "[", "x", "]"}]}], ")"}]}], "+", "\[CurlyEpsilon]1"}], "//",
" ", "Simplify"}]}], ";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]", "=",
RowBox[{
RowBox[{"\[CurlyEpsilon]1", "/", "a"}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]", "=",
RowBox[{
RowBox[{
FractionBox["1",
RowBox[{"k", "^", "2"}]], "*",
RowBox[{"(",
RowBox[{
RowBox[{
RowBox[{"v", "''"}], "[", "x", "]"}], "/",
RowBox[{"v", "[", "x", "]"}]}], ")"}]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]1", "=",
RowBox[{
RowBox[{"a", "*", "\[Eta]"}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8140058626640596`*^9, 3.8140059387930803`*^9}, {
3.8337267131733255`*^9, 3.833726730148926*^9}, 3.833727736678095*^9},
CellLabel->"In[19]:=",ExpressionUUID->"b7a79ee5-28bb-4e77-994f-5b11436b8414"],
Cell["\<\
It is required by the theory that the period of inflation should stop when \
the flatness conditions are a not satisfied, so when \[CurlyEpsilon]1=1\
\>", "Text",
CellChangeTimes->{{3.8337246304898*^9,
3.833724698149641*^9}},ExpressionUUID->"01884def-fc10-4d12-b0eb-\
d7edb0cc3420"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{"\[CurlyEpsilon]1", "\[Equal]", "1"}], ",", "x"}], "]"}]], "Input",
CellChangeTimes->{{3.814006107761413*^9, 3.8140061201636853`*^9}},
CellLabel->"In[25]:=",ExpressionUUID->"fca717f0-53a8-4175-a6d9-1a712efeb724"],
Cell[BoxData[
RowBox[{"{",
RowBox[{
RowBox[{"{",
RowBox[{"x", "\[Rule]",
TemplateBox[{
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ",
TemplateBox[{"1"}, "C"]}], "+",
RowBox[{"Log", "[",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{"3", "-",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}]}], ")"}]}], "]"}]}], ")"}]}], "k"],
RowBox[{
TemplateBox[{"1"}, "C"], "\[Element]",
TemplateBox[{}, "Integers"]}]},
"ConditionalExpression"]}], "}"}], ",",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
TemplateBox[{
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ",
TemplateBox[{"1"}, "C"]}], "+",
RowBox[{"Log", "[",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}]}], ")"}]}], "]"}]}], ")"}]}], "k"],
RowBox[{
TemplateBox[{"1"}, "C"], "\[Element]",
TemplateBox[{}, "Integers"]}]},
"ConditionalExpression"]}], "}"}]}], "}"}]], "Output",
CellChangeTimes->{3.8140061347461805`*^9, 3.8140086006813745`*^9,
3.8140094609135065`*^9, 3.8140686827570353`*^9, 3.8140926882944665`*^9,
3.8336317908726645`*^9, 3.833727749275827*^9},
CellLabel->"Out[25]=",ExpressionUUID->"c04d96cd-f2bc-435a-9fe5-ca5178e6d6e9"]
}, Open ]],
Cell["\<\
We have to choose second possible solution, so we set with xf the final value \
for the \[CurlyPhi].\
\>", "Text",
CellChangeTimes->{{3.833724934277895*^9,
3.833725007002491*^9}},ExpressionUUID->"0f11b444-300b-47c5-9180-\
a02fb1e2374c"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"xf", "=",
RowBox[{
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"(",
RowBox[{"Log", "[",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}]}], ")"}]}], "]"}], ")"}]}], "k"], "//",
"Simplify"}]}]], "Input",
CellChangeTimes->{{3.8140061397447023`*^9, 3.81400615966374*^9}},
CellLabel->"In[26]:=",ExpressionUUID->"db620db3-7be1-4147-8b49-2f8a17bd9b6b"],
Cell[BoxData[
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"Log", "[",
RowBox[{"1", "+",
FractionBox[
RowBox[{"2", " ",
SqrtBox["a"]}],
SqrtBox["3"]]}], "]"}]}], "k"]], "Output",
CellChangeTimes->{3.814006160295802*^9, 3.814008603321849*^9,
3.8140094633347826`*^9, 3.8140686846441803`*^9, 3.8140926908497257`*^9,
3.8141814513765574`*^9, 3.8336317909639587`*^9, 3.833727749318946*^9},
CellLabel->"Out[26]=",ExpressionUUID->"4f4b323e-54e3-465e-9488-30afd2eba469"]
}, Open ]],
Cell["\<\
We proceed to the calculation of the initial value of \[CurlyPhi] , which \
denoted as xi
Firstly, the integral for the e-folding number is calculated.\
\>", "Text",
CellChangeTimes->{{3.8337250225164375`*^9,
3.8337251101152105`*^9}},ExpressionUUID->"4765ce90-78d5-4be3-b685-\
c78b7a04b284"],
Cell[BoxData[
RowBox[{
RowBox[{
RowBox[{"Integrate", "[",
RowBox[{
RowBox[{
RowBox[{"-",
RowBox[{"(",
RowBox[{
RowBox[{"k", "^", "2"}], "/", "a"}], ")"}]}], "*",
RowBox[{"(",
RowBox[{
RowBox[{"v", "[", "x", "]"}], "/",
RowBox[{
RowBox[{"v", "'"}], "[", "x", "]"}]}], ")"}]}], ",", "x"}], "]"}], "//",
" ", "Simplify"}], ";"}]], "Input",
CellChangeTimes->{{3.814006175092329*^9, 3.814006264618504*^9},
3.833726844337514*^9},
CellLabel->"In[27]:=",ExpressionUUID->"b9e42935-a385-462c-870d-fc1fe6166fac"],
Cell[CellGroupData[{
Cell[BoxData[
RowBox[{"Solve", "[",
RowBox[{
RowBox[{
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "3"}], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
SqrtBox[
FractionBox["2", "3"]], " ", "k", " ", "xf"}]]}],
RowBox[{"4", " ", "a"}]], "-",
FractionBox[
RowBox[{
RowBox[{"-", "3"}], " ",
SuperscriptBox["\[ExponentialE]",
RowBox[{
SqrtBox[
FractionBox["2", "3"]], " ", "k", " ", "x"}]]}],
RowBox[{"4", " ", "a"}]]}], "\[Equal]", "Y"}], ",", "x"}],
"]"}]], "Input",
CellChangeTimes->{{3.8140062958660045`*^9, 3.814006336987953*^9}},
CellLabel->"In[28]:=",ExpressionUUID->"1a47faf7-dc43-4577-82a5-bca712a76e34"],
Cell[BoxData[
RowBox[{"{",
RowBox[{"{",
RowBox[{"x", "\[Rule]",
TemplateBox[{
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"(",
RowBox[{
RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Pi]", " ",
TemplateBox[{"1"}, "C"]}], "+",
RowBox[{"Log", "[",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}], "+",
RowBox[{"4", " ", "a", " ", "Y"}]}], ")"}]}], "]"}]}],
")"}]}], "k"],
RowBox[{
TemplateBox[{"1"}, "C"], "\[Element]",
TemplateBox[{}, "Integers"]}]},
"ConditionalExpression"]}], "}"}], "}"}]], "Output",
CellChangeTimes->{{3.8140063318233986`*^9, 3.81400633779501*^9},
3.8140086081916094`*^9, 3.814009468339265*^9, 3.814068690875821*^9,
3.814092695390194*^9, 3.8336317911305623`*^9, 3.833727749461359*^9},
CellLabel->"Out[28]=",ExpressionUUID->"0a676b16-31d2-4cf9-b8ce-52b1811bac5f"]
}, Open ]],
Cell[BoxData[
RowBox[{
RowBox[{"xi", "=",
RowBox[{
FractionBox[
RowBox[{
SqrtBox[
FractionBox["3", "2"]], " ",
RowBox[{"(",
RowBox[{"Log", "[",
RowBox[{
FractionBox["1", "3"], " ",
RowBox[{"(",
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}], "+",
RowBox[{"4", " ", "a", " ", "Y"}]}], ")"}]}], "]"}], ")"}]}], "k"],
"//", " ", "Simplify"}]}], ";"}]], "Input",
CellChangeTimes->{{3.814006340708346*^9, 3.814006356918973*^9},
3.833726848649198*^9},
CellLabel->"In[29]:=",ExpressionUUID->"11be457c-23c9-4445-baa7-82a8b57b169c"]
}, Open ]]
}, Open ]],
Cell[CellGroupData[{
Cell["Calculation of the observational indices", "Title",
CellChangeTimes->{{3.833725233750146*^9,
3.833725262290557*^9}},ExpressionUUID->"672740bc-5029-4f05-a1ae-\
42a6776948a8"],
Cell["\<\
We calculate the slow-roll parameters for
\[CurlyPhi] = \[CurlyPhi]i and we take the Taylor approximation for N \
\[RightArrow] \[Infinity]. Afterwards, we
calculate the primordial density perturbation and the tensor to scalar ratio \
for \[CurlyPhi] = \[CurlyPhi]i and we start our primary work. \
\>", "Text",
CellChangeTimes->{{3.8337252984103746`*^9, 3.83372534111051*^9}, {
3.8337253935420637`*^9,
3.833725445650381*^9}},ExpressionUUID->"78e75426-b516-47ee-8dda-\
e69eac913046"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CurlyEpsilon]1i", "=",
RowBox[{
RowBox[{"\[CurlyEpsilon]1", " ", "/.", " ",
RowBox[{"x", "\[Rule]", "xi"}]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]2i", "=",
RowBox[{
RowBox[{"\[CurlyEpsilon]2", " ", "/.", " ",
RowBox[{"x", "\[Rule]", "xi"}]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]i", "=",
RowBox[{
RowBox[{"\[CurlyEpsilon]", " ", "/.", " ",
RowBox[{"x", "\[Rule]", "xi"}]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]1i", "=",
RowBox[{
RowBox[{"\[Eta]1", " ", "/.", " ",
RowBox[{"x", "\[Rule]", "xi"}]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Eta]i", "=",
RowBox[{
RowBox[{"\[Eta]", "/.", " ",
RowBox[{"x", "\[Rule]", "xi"}]}], "//", " ", "Simplify"}]}], ";"}],
"\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8140063702553463`*^9, 3.8140064000233936`*^9}, {
3.8337268551449175`*^9, 3.8337269016127677`*^9}},
CellLabel->"In[30]:=",ExpressionUUID->"fe8c2eb4-ee51-49b1-a5e4-70b6c9d92d19"],
Cell["Taylor approximation for N \[RightArrow] \[Infinity]", "Text",
CellChangeTimes->{{3.8337269475748057`*^9,
3.8337269599451227`*^9}},ExpressionUUID->"754f6162-49a0-4b61-bdc0-\
b95a3868166a"],
Cell[BoxData[{
RowBox[{
RowBox[{"Series", "[",
RowBox[{"\[CurlyEpsilon]1i", ",",
RowBox[{"{",
RowBox[{"Y", ",", "Infinity", ",", "2"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Series", "[",
RowBox[{"\[CurlyEpsilon]2i", ",",
RowBox[{"{",
RowBox[{"Y", ",", "Infinity", ",", "2"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Series", "[",
RowBox[{"\[CurlyEpsilon]i", ",",
RowBox[{"{",
RowBox[{"Y", ",", "Infinity", ",", "2"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Series", "[",
RowBox[{"\[Eta]1i", ",",
RowBox[{"{",
RowBox[{"Y", ",", "Infinity", ",", "2"}], "}"}]}], "]"}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"Series", "[",
RowBox[{"\[Eta]i", ",",
RowBox[{"{",
RowBox[{"Y", ",", "Infinity", ",", "2"}], "}"}]}], "]"}],
";"}]}], "Input",
CellChangeTimes->{{3.8140075397933927`*^9, 3.81400762138866*^9}, {
3.814008626978919*^9, 3.8140086283810673`*^9}, {3.8337269642895794`*^9,
3.8337269660335875`*^9}},
CellLabel->"In[35]:=",ExpressionUUID->"fa195073-96ea-4a03-b7f8-3fa30a5372ff"],
Cell[BoxData[{
RowBox[{
RowBox[{"\[CurlyEpsilon]1i", "=",
RowBox[{
FractionBox["3",
RowBox[{"4", " ", "a", " ",
SuperscriptBox["Y", "2"]}]], "//", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]2i", "=",
RowBox[{
RowBox[{
FractionBox["1", "Y"], "-",
FractionBox[
SqrtBox["3"],
RowBox[{"2", " ",
SqrtBox["a"], " ",
SuperscriptBox["Y", "2"]}]]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[CurlyEpsilon]i", "=",
RowBox[{
FractionBox["3",
RowBox[{"4", " ",
SuperscriptBox["a", "2"], " ",
SuperscriptBox["Y", "2"]}]], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"\[Eta]1i", "=",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1", "Y"]}], "+",
FractionBox[
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}]}],
RowBox[{"4", " ", "a", " ",
SuperscriptBox["Y", "2"]}]]}], "//", " ", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{
RowBox[{"\[Eta]i", "=",
RowBox[{
RowBox[{
RowBox[{"-",
FractionBox["1",
RowBox[{"a", " ", "Y"}]]}], "+",
FractionBox[
RowBox[{"3", "+",
RowBox[{"2", " ",
SqrtBox["3"], " ",
SqrtBox["a"]}]}],
RowBox[{"4", " ",
SuperscriptBox["a", "2"], " ",
SuperscriptBox["Y", "2"]}]]}], "//", " ", "Simplify"}]}], ";"}],
"\[IndentingNewLine]", "\[IndentingNewLine]",
"\[IndentingNewLine]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8140076312096643`*^9, 3.814007634116964*^9}, {
3.8140077158433523`*^9, 3.814007810283039*^9}, {3.814008646089921*^9,
3.814008687489167*^9}, {3.8337269755316725`*^9, 3.8337269780586095`*^9}},
CellLabel->"In[40]:=",ExpressionUUID->"ffb0447d-8de6-482c-aa2e-c91ff2b8d699"],
Cell["\<\
The primordial density perturbation and the tensor to scalar ratio is given \
as:\
\>", "Text",
CellChangeTimes->{{3.833725703300952*^9,
3.833725720530656*^9}},ExpressionUUID->"0d1a6da7-8bc0-4f05-b8ab-\
822f01c2b874"],
Cell[BoxData[{
RowBox[{
RowBox[{"ns", "=",
RowBox[{
RowBox[{"1", "-",
RowBox[{"6", "*", "\[CurlyEpsilon]1i"}], "+",
RowBox[{"2", "*", "\[Eta]1i"}]}], "//", "Simplify"}]}],
";"}], "\[IndentingNewLine]",
RowBox[{
RowBox[{"r", "=",
RowBox[{
RowBox[{"16", "*", "\[CurlyEpsilon]1i"}], "//", "Simplify"}]}],
";"}]}], "Input",
CellChangeTimes->{{3.8140067897565107`*^9, 3.814006813096903*^9}, {
3.8140083732107787`*^9, 3.8140084862383738`*^9}, {3.8140085230431495`*^9,
3.8140085264134946`*^9}, {3.8140086938028173`*^9, 3.814008729272933*^9}, {
3.8337269974837337`*^9, 3.8337270142590475`*^9}, {3.8337271535840397`*^9,
3.8337271546615143`*^9}},
CellLabel->"In[45]:=",ExpressionUUID->"7bd21a7d-6ca5-4f5b-aa81-34c50d6dd4f0"],
Cell[CellGroupData[{
Cell[BoxData[{
RowBox[{"ContourPlot", "[",
RowBox[{"r", ",",
RowBox[{"{",
RowBox[{"a", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Y", ",", "40", ",", "60"}], "}"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "N"}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", " ",
RowBox[{"ContourLabels", "\[Rule]", "True"}], ",",
RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}], ",",
RowBox[{"Contours", "\[Rule]", "10"}]}], "]"}], "\[IndentingNewLine]",
RowBox[{"ContourPlot", "[",
RowBox[{
FractionBox[
RowBox[{
RowBox[{"-", "3"}], "+",
RowBox[{
SqrtBox["3"], " ",
SqrtBox["a"]}], "+",
RowBox[{"a", " ",
RowBox[{"(",
RowBox[{
RowBox[{"-", "2"}], "+", "Y"}], ")"}], " ", "Y"}]}],
RowBox[{"a", " ",
SuperscriptBox["Y", "2"]}]], ",",
RowBox[{"{",
RowBox[{"a", ",", "0", ",", "1"}], "}"}], ",",
RowBox[{"{",
RowBox[{"Y", ",", "55", ",", "60"}], "}"}], ",",
RowBox[{"FrameLabel", "\[Rule]",
RowBox[{"{",
RowBox[{"\[Alpha]", ",", "N"}], "}"}]}], ",",
RowBox[{"PlotLegends", "\[Rule]", "Automatic"}], ",", " ",
RowBox[{"ContourLabels", "\[Rule]", "True"}], ",",
RowBox[{"ColorFunction", "\[Rule]", "\"\<Rainbow\>\""}], ",",
RowBox[{"Contours", "\[Rule]", "5"}]}],
"]"}], "\[IndentingNewLine]"}], "Input",
CellChangeTimes->{{3.8140069215030193`*^9, 3.8140069696998816`*^9}, {
3.8140070047331295`*^9, 3.8140070698007407`*^9}, {3.8140071092444725`*^9,
3.8140071166416693`*^9}, {3.8140071627304277`*^9, 3.8140072587005444`*^9}, {
3.8141815063463573`*^9, 3.8141815339875803`*^9}, {3.8141815676913967`*^9,
3.814181713082157*^9}, {3.8141819706473894`*^9, 3.814181983874751*^9}, {
3.833631797003296*^9, 3.8336318268248715`*^9}, {3.83363232626398*^9,
3.833632360247893*^9}},
CellLabel->"In[47]:=",ExpressionUUID->"9fc8c13f-1f3b-4a66-93f4-183c38aa7744"],
Cell[BoxData[
TemplateBox[{
GraphicsBox[{
GraphicsComplexBox[CompressedData["
1:eJysXXVYVcvXVkwsFOxuBcWrXLtmxNOBooiAhaIoYoKKiK1g4LUTC7FFlO44
wKFBGpGS9lpY2PWde45rNjP8/vx87vN4X9fsOXtNrPWuNbEHLFs/Z4VWkyZN
RnVq0uS/v08OFqv+i0NN1H94uDh4req/NII18hyC1eLiAoKLNP9A8K/f//15
SvAJ9fOVBA/6D56sJjhI/XgtwUL1Dz4n+Im6/pcE26tf8DXBmr/fMu8bh9ap
y3H6AAZ9AIM+gEEfwKAPYNAHMOgDGPQBDPoABn0Agz6AQR/6feNQifo5PtEH
MOgDGPQBDPoABn0Agz6AQR/AoA9g0Acw6AMY9AEM+tDvG4ck6v8REH0Agz6A
QR/AoA9g0Acw6AMY9AEM+gAGfQCDPoBBH8CgD/2+cShUXS+nD2DQBzDoAxj0
AQz6AAZ9AIM+gEEfwKAPYNAHMOgDGPSh3zcODVX/jpDoAxj0AQz6AAZ9AIM+
gEEfwKAPYNAHMOgDGPQBDPoABn3o941Dp9V/i4g+gEEfwKAPYNAHMOgDGPQB
DPoABn0Agz6AQR/AoA9g0Id+3zikpf53MdEHMOgDGPQBDPoABn0Agz6AQR/A
oA9g0Acw6AMY9AEM+tDvG4c2qMtx+gAGfQCDPoBBH8CgD2DQBzDoAxj0AQz6
AAZ9AIM+gEEf+n39UZn6OQnRDzDoR8tzCAb9AIN+gEE/wKAfYNAPMOgHGPQD
DPoBBv0Ag370+/ojmfp/pEQ/wKAfLc8hGPQDDPoBBv0Ag36AQT/AoB9g0A8w
6AcY9AMM+tHv64/C1fVy+gEG/Wh5DsGgH2DQDzDoBxj0Awz6AQb9AIN+gEE/
wKAfYNCPfl9/NFz9OzKiH2DQj5bnEAz6AQb9AIN+gEE/wKAfYNAPMOgHGPQD
DPoBBv3o9/VHZ9V/y4l+gEE/Wp5DMOgHGPQDDPoBBv0Ag36AQT/AoB9g0A8w
6AcY9KPf1/8P3zUh+gEG/Wh5DsGgH2Cav5sw/N2E4e8mDH83Yfi7CcPfTRj+
bsLwdxOiH/1+iSjkv78X8AjWyAHXETk8z5Yf8t976gJfjkCn/nutFD6RAwZ5
0/+q2S0gcsAgX//f/4wXEjlgkJeq1eLkgEEu/a9dboiIHDDIw9TvLyZywCAf
ptZHQuSAQX5GrQ8nBwzyZmp9pARvVL+/jOCn6veVMe8rJ5junzoiB8yOR7o/
6hrFZ9A/gKE/AEP7A4b2BgztCxjaEzC0H8wXaC+Q09iftBfIaexP2g8wtB9g
aD/A0D4wPun2fKOJhwx5BKv5ag6UVxC5pv2CiRzK0+3pzzz/thGmfy+CiScj
mHgsgolnIhi+H6zhbwpufNP8OVjDh7Zw45vmo8EaPmHIjW+a3wVr/HG1mOYb
1Vx5mi8Fa/zbRQntvy9y45/mH8EafzGH8YdzuPlB+/Ngjf3VZvyLNjdfaP8Y
jJqr24crDxjK0/4G2ouz74A15b0Z+/6GmY/BjbC6P5dz/aXuz14iZjxxWN1/
h8R0/2KuPQFT7/tJQr/vJwndvz5c+wKm+ne5jO7f5TK6P3vJ6f7sJSf2jc7f
JDL5j0Qmf5DIxN+JzHhOZMZvIjNeE5nxmcjwYwVS/9wh8EdZxP6pqz2ZR7BI
XfAJwWvU9ZYSrPHHVYy8hvF3Ck1/Yz75PbCn8HuA4fcAQ/2AoT51e37i6gN7
DPUBhvpoXEEw1A+Ysmc+AlI/2HeoHzDUT+MKgqE+GN9QH/gHqA8wtC9gqI/2
53UEQ/0wX6B+8DdQP2CoH/BAtfwVwwfqCIb6Yf5B/eC/oH7A0B6A4fcAH1c/
8IJg+H3A8Hswv+H3wD9C/YChPsDwPMx/eB78JzwPWMMfnxEM9QGG+sBeQH3g
b6E+wFAfYE15X429UErJfAT/DPUBhvYEDPUDhvkFGH6Prs9XY39cZOT3wP/D
7wGG3wMM9dPlfTX+woizZ8AfoD7AUB9gmF+AoX76eV/N/HvO1Q/8gx5fclIf
zVcUhF9oyisJfwBM27s/87Gak7NYXQxz9kA9vy7yiZzFtD36M1/mCIicxbR9
+TPetYVEzmLafigInwE5i2l7oCD8BuQspue3gvAdkLOYnp8KwndAzmJ6PioI
3wE5zYfiGvUX7Z+UjfwL7U+UjfwF7R+Ujew9bd+VTHwV3Mje0vZbydjn4Eb2
k7bHSsbeBjeKB9j+oO2tkonPghvZP8BQno7XghvZN8BQno7fghl7pmDit2Bi
fwCD/QAM853WF+bvH/vynrNfav7Zn7MPav55l8MO/1VTwGH171tz9anH6z8c
Vs+HCEYu555Xj9fmYG8CiT0CzD4P8QrI6Xgngsx3ir+eFNLxSwO+y8YjdL48
gowH+D31/O0qJlj9/jwOw3yF+oAPUvIMDqvn33emvmom/lkroeMNMn//lN8P
/jCMYJCr+9dfQv/eRQnNrwdLafkUDqv7305KxzN2Urr+OVKajxcz8vcc/p/j
S1tG/542N14hXqLkdzkM4xHejx2fEE9Rv6/g6of4CuQwnqn+ajCeId6ixkMD
rClnQvpDPX5dhESuHm/PRcz4FpHyrJwdf+rx6Smm5Q5iuv5DYvr9zCW0XF9C
14cltL7tpbS8XELX94kZf0opLT/L2ROI56j6fZjx5iKj5ax9WC6jf68BBn5E
yZtz/QXxIPV7vTj+AvEh2F/Nv3P7AWh/l8XsJ8hins9j+FBeo/0CbHwHcuDr
8DzkT9l4jy5fw7yPgllPzyIY3gcw/D69/l/VaP0d+BbUz66/0/48i8ihfna9
nY0H6fVyRaP1cTqey2q0Ps7GhyCH+tn1auB38Hv0enAWwVAfuz7NxovsejIb
L9JyBbNem0Uw/B5gqJ9d72XjR7o+RaP1Xprf5DDxXlaj9V42nmTXa9l4kl6v
VTDrnVkEQ32A4Xm6vILJl2QRDM+z65NsPEnn+xKZ9bssgqE+ej3xWaP1Sjq+
UzD5qURm/Syr0foeG1+y63VsfEk/n8isX2Ux/jCPYHieXZ+j+V8i4+/yGq1H
sfEjvb7k22j9BTBt/0zI84A17Z1C4gt4Pzr/lELiP5DT9iKFxHuAIZ6D8nT+
JoXwPZDD/AE5xGuAwd9CeTr/kUL8K8jp/EYK8acgp/MVKUw+NI6J9xVMvjOO
idcVTL4zrlE8DnyYah9DHt2+TXh0+1Tz6Pa4yKf5iJ2AXg/wEdD5fG0hKa/W
vz+H1eXlQrr9tIV0vl/BlVe3T4GQXl9o0D/segLE0/C8hq+JaP4VIaLXAwzF
RA78ndLnENff7PoD8HN4Hvg7pQ/m+pstD3ycev9PXHk2PqfzX4pG6w9gj0DO
rjfAeAI5u77A8iF6PSGCGU9hTHymbLQeBuNNLR4cq5mvXTmsHm88br0K6oP6
1b/3XkCPv7vM+LIW0eOlq5ju/wyuP6C9qP6awrUftBfVP+85ObQXyCH+oMcf
9/4QPwBW66sU0PoZiWh9PMW0PuYSWp/2Unq8Khl9XJj3N+L6k/Z/CsZfKRj/
omDsvYKx70pmvSaOYOhf9v3U/X9WQLdHcxHdHg5iur/1JXT7qOIPDe+NIv1H
9YedlG4/VfwB5aE/QQ7xJ9W+cg5D/Ei1tyqegPrY/oX4kLY3HKb9XxiZT2q6
8TtEM19K5fR8bDA+2fFI51sUhD9A+4P+0F8w/gHT6/vxpDz0J21f4pn2TSHx
B+Vf1nL+mObfKYT/Uva7CWdfaX6YwvA/X2a8+jLj1ZeMV9Bf/c+esP+6iPAN
Db+rIlhTPpvwCQ1/qiBYY57yib/T8LUyhk+8IVigru818VfwPhDPw+8Bv4D3
Axyorv8FwRp+/y/xJ/A+MN80/LmWYMp/9JITfQHD+AV/Dhj8NWDwv4DBnwIG
f0nNx+8cZvNDdD40kMl3BhL/AZhdT6HXSwIbrY/Q6x+BjdY36PWMQII17RlE
5h81f4sZe31SSNsnMWO/mzD2O5jxR2uZ/Nxgxn4XS2n7fZLxN2LO37Lr2TCe
QU7H+0oSXwMG/QDT8a6SiUeVRD/AdD5TSfSD8a7+dwfen/GQQfiAJr4oYfho
DcFQHvgoYPXPq+IBwMBPAcN81czHXCLXtE8lUz6K+CPA4J+hPsgfa+zzY4Kh
PPBZwJDfg+eB31L6LIf2LWfkUcQfAgZ+AM8D36X07wXxdx0jjyJ8l5rvz7n6
6P02uQRD/wDW2I+XBFPv5yCm7YenmP49fQltT1R8RmNfnxM+TD3fwL8D34H3
BT5Mvb+KD0P/gL/SxJvPGvk7Or+sZPKHSiY/rGTsZQbD/2oalafzv0ri3yl/
RPKJ8YQPAwY+DBj8F2CYTxp7lUDkUL/6+f18gtW/78+n69/Pp8fHFAFd/j2H
WX8AcqgPMNXfd4V0f1qLSHl2PAJfp/o7g8OwfgHvA/YN6gMM9hHyf/A8vR8k
jOQDQM6uJ7LxKuQHoDydLwgj+S+Q0/myMOLvQE7nD8KI/wM5nT8IY/IFYY3W
91i+C/4QMPg/+n1hPPpp2neTlGD1fKmUERzx3++kyYh/VI+fejkdHzfgD6x9
BHtH8f3l3PoH+BPq+RwmHmDX24KZ9TDVeIH3U7dfHLO+1sDf/s/1MnL+IIC0
B2B1+y2SkvpZOctv/ud6F8m/BZD2hPaF+ALKs/v7IH6D31e/zzQunwPrAZR/
XcvNf9Y/gv+n5n+xgOan2sx8P8n5GxpHEX5A+TuxiJ7/DfoX+o+a72sltD0e
LKXLN4jf6PUlJdPeSiYfqmzElyD+0viLJGJPoT0h/wj6sPlIyD+CnM1H0vYl
o1H+kbYnGY3yj2x+kc0ngj2A59n9ADQ/VhJMtbecw5AvgOdp/qxslG+k+bOS
YJpvcBjyORRf8uHsMYvZ8fc/84kKxr+wfKcXk+/rxeSHtjD+h80XGjLj05Dh
M4eY/MQhJn9Yzfgvlt9gJp+BGX70SUK/7yfO/4G9od7PR0q/vw8zX5Yz+Yvl
XP9D/oqyjw3iQ5a/0PvB4wkG+wT9DfkMsMdUPDOHyceQ/dThGv82msPq8Stg
8jsN8nNsPo7eDx2u0deMw2r97OV0+zSwN2BPqPc7ybUX2A9oD2hv0Bf8hWZ+
RGrev1ZK//4URl9rJp/UIB9Dl48j/Q9yer9FHPl9kAPfpOKnJlz8BRj4LI1T
iD/X6JtN/InmfXII1vxeGilP5XO2cPl6Ot+cxux3zyH+DH5P/dch7rw9yDXj
LZ/IoX0gPoT+Uettzr0fyDXlU4kcnof4kRrv7QV0PttHQPNtJbf+DXwT3h/K
w/PAfyj/7CKk19cb5Isg/gM52BuQQ7wFcrAnIId4SyP3J/5TI/fTjLcs5vyi
C8dP1OPXjVt/AvsB9UN5eB74CjwPfAWeB/sCz0N5eB7sBzwPfFPT/4mMvUkg
8RL4cxZDfAXPQz4Bnle393fmvBjmzrfQ+YNEguF5iK/g9wDD/Fb/3iZufQzy
DVAfzBeoD/g0pW+D9TWIT6B+9fuM4Na/IB8Bz4P/hPrheao9ljPrZwVc/er3
q2T2yzVnzjs0WH+D/CA8r/79C1x5sAfwPlCeao8cbn0O8otQn/r3ZjP78RyY
8xWGYlI/PE+1xyHuechXQv3q92spodu7XEKv7zc4H0Tvhwtn4oOIRvwV1hvo
fKqcHm8R3HxR/+XAxfdg/8C+0/byT3ysz6fjY33OnqnHdzljH89y8Txgyv7J
hbS9a87F84A1/i6Q9Cdl3yIYe+YgpuMNfQmpD7CmvYNJewC/UPPpRM4+0Osl
AY3WT8C+Aob8F9QP+QeoX81XBopp/jKQOV/G48qr+fcTTg7jiSq/X0LKq+3t
cQmpHzCUh/Vgqr4pzPmz91I6HvzJ8I+fXHkYb4CB78HzcnW3ycjzgKE8xKeA
ga/A88CnQA7jGeTAl0DOtj+MD7p/ReR91PFRKbMf15NrXxhP8Ly6/A6u/9Tx
yWlm/625hH4ffa5/1OXHcv2jjsekzPm09lL6fcq559XlX0ro8aPFnF9TSun3
OSulx58X55/V4yuMyzcApsaHi4x+P7mMHp+WMnq8bZDR/n8Dl58ADOXV/n+o
nOYDQ7n5BhjsLeQTAUP+j+JDhhx/Y8+XsvwNMJWvN+f4J31eO7eR/2b5HGAq
Hm3P7R+EeB7yyf+TDzY4L0Lby2yGL8c2Oi/C2lP2fAjYU9CPPg+e+7/XExuc
/2DtK3veA8Y79CeMR039aST+gHiBXs/3I+MNytP5hQyGH/ox/C6HOS+ey/BB
P8L/YPwAfwN/CPyN6o8MHt2e33l0/2Yw8WoGx/9YOTxP+UNzzp/C+KLez5wb
T5BfBzlg6vfbC+j6yrn4gx0/bH6e3n8VT+SAWTnEJ9Tv+wjo91MKaD77XkDP
5wbxCfA96n3ucpjerxVP5IBZOcQ3lD69uHgH+CI1nq05DHwDnmfXG0AO+oD/
gfqBL1Lv35XDtL9PYPhCQqP4C/I91PtlcJjeHxbP7E+KbyQHf0XphyV0PHVR
Qr9vg/USen9ZPJEDBjnoA3wTMHveC+RUvq3BfAO+Cc+zmM6vRpF4icqvlHP7
ywFT8+0sNz4h3qbms5yLd9jzYOx4gfFAjccG571ofpLQCMN6DzV/HLjxwa7/
QHsDZvO3INf0rz/he5T/reUw8D0oD3wP5Go+15m5f+CujH7+MlM+kCsPfI/y
F2Zy2h/Yc/E78D+Qq/nMXk4OfB7k6vHsy2Hg91Ae+BH1e+5Sun4v5r4AOeN/
jDkMfAjKw34ukKvb5yvDjzpyfAfyERDvsPEH+C/AoJ9mPAQRDHLQF+SQbwWs
Hj9txfTzs5n4YxKH6fg3iMSzgNX6vOXk7P0Y7PgE+0L9njPHbwFTvx/FYfV4
vcVhOn4OIOOZKl/LrL/95LD6+REcX4XxTdU/golvGsjp/bABZPyDHDBVfyAn
h/VRkLMY4iUoz66f0vnPADKfqP4wk9P62nNYk0/hMMwveB7kgFk5vZ83gLl/
J1wzHt2EpLzavtVz8T19fiScyKl4q56L5yB+o8e3iB7f3sx4tRXTv39aTOt3
iInXlzHjrw8Tj0kl9PzBzHjuwazv5kno+rWk9Pt94sYv5E+p/lRy5Vk52C9q
vLpL6f70ktLvFyal9fOR0vPHTUbX7yKj55MbM16NmfFszMnBPlLvv0FGt89y
Zv5Mk9P1G3EY7CnVXh05fq8Zf9z6hHpcHeIwux7Alof9b5p/zyLPa+rPZ/bb
5DL7R3KZ+wbymN+PYu47yiUY4kN6/SO+0X4bdr8ZrL+DPmy8SZ+XS2HuE4sn
+VvA9PmJXCYfm9tofR7mH2B6v0oKsz6XQTDwSTY+BHtKlT/JxXf0+lwKc99V
KuGH6uJwP0+D8zzQHpBfB34HGOITeJ49H/I/7+fBEvI8nQ9KbHT+AtYHQX+a
X8QS/kC9nyF3ngnGF+gL8SZg4M/U+sV+Pm1fO3P5ePV4seTOL0H/Q30QvwFm
1wvU9jCNaz+Iz6h81V7OvgMGOZuf0/AZEc0HJnH5dMBU+dmcHPgIlW+6xfEL
4BPwvhC/aJ6PY+xxPMnPUfOlnCsP4xX6j+bXsYQ/Q3kYvyCn+XMs8ff0fgI5
7U8TuXw08EOQs/lquv/+PF/LYbU//cmct7orpOWXhfT4CWTOV1kz/ttMRI8P
e279BeJdSt5WTI+PBvlykMPzEN9S5eOY8fFETOcnR3PrJdBf1Pio5eRs+0N/
UfnwyzKyHk/zqQhm/fbP/Apj7q8zEtH9MZS5n86T0d9bTLfvaWY9YZmEbp/2
Unr+9JDS7aXFrScBv6DaL0xKt4+bjI43jeR0ezY4z0Pn58I18bkX1x5q/9OR
ycc3yK8DX6PGH5t/H8vM5z5Mfr1Bvhz4FzXeXnIY9jdQ7ePF7bdg10OA/wOG
+IBq7wb5ceBDgIG/U/JKGZ3Pby6nx29HDtP8J4LEx7R9lZP3B3tE2TeyfhhL
+CJger0glvAhwOx+QPq8fiqTX8xm+Elso/voIZ8C5cH/AKbPE+SR+oCP0fex
FDTKd8L+QsDgvwHDfkLAsJ+Q8s8Nznuz/AX291D2/yQX70M8BP5V/c+HOH+t
Fnty9zPQ9+MVEwznedTlG5xXYM8n0/tDUpnzgU+Y/FUBwdCe9P7aCrJeAPcT
AIbzSsCP4PeBD8Lvs+cD2PPNgKE8ff9IHnN/ag7B1HhRPQ/tB3JoP8DQflAe
7jcAOdw/ABjOS9H3neQx97XmEAzvA3wQ3gfk8D6A4X3o89zxjD2OIxjmJ8R/
0J/0fUwFBEN/0udzs8j+Smh/wPT5dDk57w9yOL8PGM5/0ecNk5h4KqpRfpa+
X/fPfhN3zj+o6zPm+Dfwc5Cr++MrxzfZ/SWs/wC+Bxj8ATxP50fDmfg5grn/
J5zYa2q/X3M57U+bc/YY7DXYYzp/GU7yK4AhnwcY8oNgX+j1yXiCQQ7tC5iN
9+j9ZLGM/Y1l1gfjCQY5fV90PMEgp+dnLHM/dHwjTO8/9mH2U/qQ9gIM/Bf4
Bqznadr3z31xA5n7AHmcXN0+k3jEPtP3ewUQDP6YjWeA/2rqCyT8F8oDpviI
PSeH+AUwG5/A/lSQA9+A92Xzjex9Vux5ADY/SMcffo3yd4ChPoiH4f3U42eD
kN4vYcTEc0M5fdn9Fuz+CXY/BPBTeD82P8Xe38vuP2DzSez6MawPgxww2APg
L2B/AIOc7u9EgmG8qX9Gn1l/Uvlrdd6pOFpjz/rwyXhksfqvsVx+iPX/9H0a
FYy8kmDN+1WS8oBp/hBF8iPw++r3fMnlj+j7FRWEz4N/A3sC/IC+L6mcuR+z
nPATaj5acvyDvh9TQeIFaA+Wf9D3YypIvAD+GNYvoP0Ag3+n779UkPgCnof1
DHievv8yj7kvsYBgaD9YnwAM+QXwr1Ae7usBDOcN4XnA8LymvRIanZ9n7w8C
DOVp/p/RKP/G8gewL3DfDsiBD9Dnw2qY/fQ1zHzMZfZreDPnOXxI/kIzn3wJ
1rT3n/seq7jy4B/p/eHc/hCa7+Qy9i6X2HvgM+x5S5jPmvdRkvkJclg/BjnM
D2hvej+jkmAoD+MbytP35ykJhvIwPsGeqOvL49P57wbr2+z9qCDXtE8cc3+A
H4lnoX3Z9VngKyBnMfAXzfsGNuovaG/N7/szfMqHtD/lTxqsH0F+EPwv5Cvg
99TPR3Pn5cA/gFw9HzYz6xlDufVXwFBerf9IOW3PPXm0/Qxm7kP35OI79V8O
wD/SCYbxB8+DPQUM5ynU9RziMP09iwJi78G+gH0HzN7HB3LwB+x9fLDeoNEn
i9nvnd/IvrP339HrCbnMfvDcRvff0ec308l+CJDT983lkvgSMHsfOf29sBJS
HjB7Pzn9/bGXpDxg+j7eAsJfoX3p/P/jRvfJ0euDCWT/LfAJwNR+t8FSUh/9
fSru/jgoT9/vwN7PlkvyczC/NP1qQuSAqfitnDt/QJ9XSSX2DuRgzwDT+c1U
sn8F5GDPKD5VzmF2PyzEd2AP4PwAtZ/QkMsnAIbfp/PNqcz9IhnMfoU05nsf
qUy+OZXsp9LYw1jSfzD/AYN9Bj6veT6csX/hzH1Xf/hXWy5eUVc7m0f0h3w8
FY80yLcD/9c8H9kIs+sJ6vmcxawHTGPys9OYfL43k2/vwZw/y2LuF2qQD6bP
74Q32u/L5jvY/cn0eAtplE+G/AC0P3v+j82n0vuDwhvdr0Tvp/lzPjOWe1/2
fkWwx8CPAAO/AD4O4w34N4wvmG/A78E+w/1BsP4LfAzsMfB/wFAe+DfYR/p7
nWXEvmvat465H72OuS/1DbM+nMbsr0xl9l+mkf2WIKfjpzpiX+H+UcBw3xH9
fA7hx5r5l034Mdz3CXK4vxMw3HcE5YEvQv+B/aHPQ6Yx9ymmMuuBacx501Tm
fus8Yq/Bf0J5GC8gh/uWQA73hQK/hvgAMJSn+fYT5j7OAoLh9yH+h/FDfy+v
isjBX9LjNZfYV5ADBn8JGNpT/VoN1uMBg5w9v8b6F/Y8FmCwL5AfgvkM679g
L9j1YCgPcvZ51t7Q/JKL16E9oX00ciWxP4BhfQqeh/V5wPT5Pn/m/Jg/sz7t
32g/J32e17/R+Uzwt4Bh/AIG/wt8Vz2eBnD5X+CjwC9O/uGjwJ8gfwjzFzDc
H0SvJzwh8TvkwwHDeKK/D1VH1mugPnY/BtgLmC+Qf4T5DxjuB4J8PtgL4Gsg
p8/TV5D4Eewr/b25SiZ/mEb2a4A9gPwkdb9dg/MH4I+BT/zP+/esufEJ8S74
IzVOl5P+YecrnX/JIxjaE+wr6M/eh0Tz/XTmvsUnxD8AX6XvV6hg+H55o/um
6Pvb0pn75vOY7/HmEn4G/oz+nm4Jw+fimXxIHJnP8P7An+H9wZ5C/EPz5wzS
XzA/QA7t/z/vN21wnhfiG7Bn7Hk14FugP52/KyDzBewPnf/KIxj8JX1/Yzbx
L6Af7b9yiH+B8v+zPVQY+JW6XVoy+c0ojs+AfuDP6fsHXzXav8nye/p+uHTm
fqcM5r64dMLXqfuB6uV0/EC+7xFK5g/4Q/p7bZVkvoB9ob+n+6yR/wV/CuMJ
/CnkC9S/2+C8A8Tz0H7A92F8098zKyYY8pH0fkAfwq817ZlA4ifA9P0wCcRf
QfvT+ymDSH5cUz6I+AcYj/R5hXzmfqU8gsG+gf8BTH8fREH4OlX+H84eAob2
ov15Ipn/oC/4U8D0/TcVpP0hfw0Y+DH4O9ofcN9fBwzl2fMe0N/UfLHl+hf4
PeX/Gnx/CvoP+gvmh0YeSPoL+kfdPl3k5H3AHwGm78+oYL4nUc7cn1jB3NdY
Tp6H8Qf8APgjYPCXoA/EI+z+DfAf1PfstYV0ezb4/gHIwZ7Q+zmyme/HFxEM
+X56v0c28332Imb/RzbhBxA/sN9HB/sJ+rD374Mc+DrIoTx9H2dKo/vywX5A
+9L+JqXRfnvAGv8TwNw/EED4MGA4b0HJj3MY1s8Bw3olVX40s39cwOw/X8aV
h/U+qv4+HIb8NvV+PZj6tJj98XlM/S+5/RYwf6E96flc0+j7J+BvYbyy3xMB
fwDjk/7+8ptG/Jf+vifHh2G+s9/jAH4LfJq9j5P9PgcbH4P9Af0Bw/4WwMD3
2O9lsN9nBD4IfJre39L4+xj0+Z58wj9g/LP5Evr+zLxG452OZ7nvf0N/sfdd
w35ksLewnwAwex4G9osCps8/+jH7A/2Z+5ACmPusA5j9PAGNvmcEvwf10/mG
AOK/sgzWXWt5z4/YG7fRBYWfy32Jv/xr1e9tuhf80N78/UMLbCU4ddw103bh
vuiL1hXz752l2FZyY9MDv2hi3w+P+9LO4lAEMir3KhzbiY8nGDnMM60LQytM
2180COfjktUuDqEeYejwxWV7lxXzsWX325dlQdz38V797heM9LnzOr2nSC8r
dQIIf/db7zrbvR33feuu9mWPDAR+JP9y+NBjwSxDX9L/S3c2XfnK4iHynXHM
7chHKa4JOXOhvc5DdPHV75nSXjK88ZnEaVOeD+r0oF76K0CGX5XN7Sy444PS
d/ZOH5wmw5162NTumHAfuXbcffiFgxzv2FnvY6Z/H5nvyN3ruk3F5xz2lpW4
eKNtFXtttVTjY6RtVo+a6dHoSdH6RyN68/DcYac3PDr3APXImZwbYybD+cUG
NqUdfFDTyLGfhHpyvG+509WtpeHEP7+1vJJw62Y42pEl3H5gMx93nuWVtfps
GPFnW398rTCpDEUnu1VZNJ8uwLpJ5TvXdAhBXd9svTK0lRA/XjnNrFdGEErK
HZK8IUiI3RyDQkdcC0LJLq9PCdKFeOzEERO+FgYR/p6AhW1svAPJ/LYbs2ll
tXkAya+YWhYGz53CfY/6VXsvR8d5fmT88l0nlZva+ZLxGfg772BbI+77zYOP
NomNNIwm/j5F2Hv5z5Rw5HpQecl0JR9PPzFn4rB5YShnb8L9SzoCPGbWz5lW
USHIW/td98PBAuxn+aKdyCwY6f5Min1iJ8T75mfcWrIpGK1psT/S3VqIs5u8
3bR6Dff95/DRW28oXwainianTFNHibDFiaC5vUcHod4fvh+MbCPCJV6X9WQz
g4i9yzlV9uFaVQCxVzFd84cMTvYn9ulSyapSx2I/Mt/0F4knRur5kfm2Om+3
X2r0Q+TQ9dJ0WbwUf+h0P8HX/yF6P06U3zlRivV6zO1XsfABmtB+a+/pjjJ8
/vCY3ZM6PkAttlid6+0qw7795+Bp7+6jtKpc898D5fjLJDxq1OjQRt+P9F0S
ml3XV4gd+86ecXqmL0rkFyxMtpfiET2swrQlvsjjatsx2FaKb7wy7zd55UOU
9H2UUP5Gig+46xbd+PIASa5HJQ0eIsNt345bUqH1AAmMhnw1uirDKYNcr73d
6INiZhwLv1Ylw3oF1k2rOvgiPb27xwRnpdix0M7jfHtfVPMz2sbmnCqeu7Bq
Cj/4ASqOPTtOIJThZovN5+vIfdBA4ydn9D7L8M4r5fOkoaHEfw3vx0t80Zb7
fmH/Y/zxQyICiT9Ki+0rGueuan+LnrdPtxPj6PsTHoxbGYCOrDAffXigGG8X
d1/h1ysAicyvjh87V4xXjH8hdhEFoONNPab7ThDjWOfbloN2+CPl4d1Lq0LF
WLtf3TZbo4fE3vM8JhtuiPIh9t5UmnDa2D8A7Rz6LLf6nWq8N5vXaVVGACqO
OZjkWCHC3bZb79PTCUTBLseuyINFuHv24VmFPwKQXahhP16sCDc70K1wxj5/
dD7th+hsoBj3wyFGDrH+6M7Gfzwe/6OKF2O+T5jcIgAlrDQ7lrhMjBWWaH9Q
pj/a7Zb/b+U+Mf50xbt64fOHzPdOfNGIzumtLb2keGhyn1PdnB9w9x2e4Yk3
/L5P4qOx31c+stoQinwSd6zsuUyAN20Y2j9GHopqO1VlH9wowAUdt/G7tApB
H8yL+zxpI8Qfvp8Z7bksBAlCLj0MKhfgf1Z3cfnHOQQV6o9xxvkC3Clz5ahf
VSGow5S48UuvC7DJjPLJM7uFIv7o4fPNjwhw2aRjMSOPPiR8Uu9I3ZujvR4Q
Prlir9bwY1fvE77oZJLctU3BAxLfh7xvKo1Y7EP8a88pb93alHmT/Na/NX8v
6b82hPDzPrauW/eM9EUtUyXvjHdK8a2vs/bvuxxA+LSpslPTZrv9uXzMqYkn
tTNDyH4fEyOjMw5tQgh/N16tt32KbiThWzYju2/cYhZO4oXtX5p1+ywIRM0F
H3XuHBdhozODXSbMDkQFazMNBrpz5yVc4z60G9OLj32H+k5y7cPd99L0d05m
+4NhZH1lRY5jR6l9JNrbPWVCvIKHh98e+6hj90j0LP1OwotSHrb0dZpg9SUC
aX+KvPfjOQ+325VpP21/BPrcc7ytgR4fT1vMdxiu40v2z3i+zL7qNdwXTfh7
utXZPVJ8cUq/IfvdIsh6T2jgMant+vskf2fb4pfDObP76Ej2x2V7l8ux7omW
3693uE/i2Xr7WXFJre8jM5OXbg8Py7FvyJfDUh9vsh51oZnxgsBb3mjiKat7
hyPl+IP2x8vOy6LR5bV5aFhHHi6e8jp8r0k0yS+6HTnX92dMFFqSNuXLeB4P
e2o/X/okKgp1P/hgbKEK+3YZefZNdBTZH+kxwq1Ds+9BKOLykFntLwrxoZCs
7MWVQWT/45l5R/Jyjweincqnq98tEeHdW9YPuarCUxd+vt7RWoSXrjq232Qc
t19wsJbTUN+SQGQ98abBmHEivC8t+2ZqTSCzPuSN+kov9NR/Ise7qo7sN5zH
7Qfa42h+qWKbN8rPM/92WOW/x23s+Xfwrvto0v7fR3eaqPz55Za3dW3vo33N
Wo4bukDF71yEE94+8UaOppYGm71U7e3hUfv6pzeade5m3YHjcpxg5trPJscb
LW3tfOvQLTkWrMmZ8fmeNzLcUrxpSrgcHy0J2Wil4gvAJ4tOZ88YNPo+yeeN
zr10yWxgFIkfWv0+drD4ZiS6tP/Dr7v3eNi0/JqTTmkkGjPKpvXOczxct+Xr
wgWukSQevrVj585OjkFoe5fJM64/FeJe/2wUPDoaROJ7q5KR/rGCIHT44KVT
rj+FuM/zjZWXJgeR9c7Fuy1ODGzpj6IqD3b01pFg07uRJm6T/VEfnWSnwTVi
PG1WHn7Tl1s/mNOtwLV+vx+yGfciwnqzBJ+qv3/s9VI/VDQ39viKkxIccNa+
wwEHP7K+IBFNHWlt4Ie+X5fVvlXFezFehRf9hX4oPcfFYPtNCR4TeS5XMNGP
rD+UFOwZHPKPL5q3YN2x6nFSPE+2uZlgjy8K0vrlsA2r+MY87ZuGB3zJ+oRz
rfmCwlg/tH7LkG8ivgQvlU8da3Pfj6xXNCk8NW3xLz80ZHFF1dguEuxdsKDw
UaYf+hweect4igRPLtfmF9f4kfWMya8Gtemc7otuzGqtF91CigMu1vb1iPMl
+SWDjp136LbxQ0sn9BFezJfg1k8+r1j93hdtf/B92NbnElwapdjn9dOXrH8U
76re5ZUYQdZnDOaHBe3tGo42O5sp8u/w8etNHXZubRJO8rl2z+qPtp/qj/4V
NrPRqebWa8IsYyY5qvh9jn6AYdwCf5KPbH949uMinWA0o6Rg5bzDQvyysvCa
b59gNPiAT4/He7l8zuNfh4Z8WSzCCx/47SxR+WPPF/FZ+4UiPKhZh7OPIx6S
9fFcxZYWtpIH5Hz2tYGnt5/MvE/W25/n7blrMcobnV3eUj/+lyo+GuEtDDP1
RuJ3I9x8VfPLJNX1YcryIBJPVm8+NSdwVRDq433N27xGiK+9ufNid0vu+7F+
ypnmZVLuPr49ypLnt+RRCCntuxmu4+E5M0XrwoyiUJeLR7Y6OPFw80FHlj7e
FcXcJx6FrOVrTg4R8nB/u7kzfx96iJI7jAzo90SKN6wJXTRVW8V/qmznOB2U
4UE7U1q5nb6P/C3t3ZbNlONFg2++9L13H8kWV7XcNlGO75xOTvdU2ft7R9YO
ejqVj28NdV8+7UAYSm+q+7Coio8z/zp6cUlyGInfd75SZHspAsh+txEz/1q6
0PohOR9Vre865+QrH3IeM3YhvzrD0h91PHFt66JHYvx23J3taxf7opnFG+y/
zpPiQYsSebcFviR+ez3w5NWlidx5qbHVJSu7deTuy30xAvHqfFKJfJtNc72f
l9OJvGKqk8f4m1w+rcO+oW3MdnHnqzSYO0/1LNrFL0yWSvzzqW5dqwsruHza
o6BUt0G3uPNPmvg7jvjrQrX9TSP4+J/8Af09zmKm/EuCv8zDL5Ml3Hkpw9KN
tbe/cN9b0si5/FpW9caV2hF+hK/k719WXenLnZ9qZxLy40TPAoL/9pQtfF7G
fY/pQrdz/IvZfoTPbPOK7/HUL5VgwejspymruXzYyH0BC+cUxKIcgwNNq3x4
eGvAwG4JSanI4Lf14eq7PNzT2fLb+vIilOznbpXsqeov48J2nmOr0cww2dmz
F3i4dcwW8/1nY9GCgVuVl7sKcICg4Eb/u9no6tU290+0FeBdk/e0N1BUoME9
bv2O/8rH4al3rh1Yn4r4bS1ankwS4GzHpeaP+hSg+4uTM9OjBHiYMiPySUgs
unyzWvrGTYhfBJ6e5Wf0FK12bfpkrIPKH4zodu6bxWvkMm3CrEcjRP/v/fXX
Hp2B85fHovtW762/31CVD7BPWuucjXJnNC+zPSvG3aYfGPFFXIROFE724qvi
q4x5Vc4XlP+iL3Pv9gybJcGVXoILZqF+6K7ZgHMJ+VJsLeq5b1t4LHJTeq8V
ZUmxTdvkrVOMC9Ai2+GlO1Tx1uSS8K4tLGvRTJzd3MdfiicmdE7SVtnzku6W
bkt4qvnc2UbcNjUVVc8qN1gwVeWvn4foRRtUI+/a5n1Shsvx5H/9et/1TkGl
c3u8LiiR453vvULqspOQxeM0rxEiHu7U2rPD6tGJaOzNtcWvmvNxC4vXfwW8
SEAFlb1Dug3h48oCz03SnlFo7hC50jaUj20j5wx/0z8CTXzf5O8mOwR45oO+
1okdI9D8rtnLr+0T4FFDlgTuvZqI5kseXTd1EeDok/19Xh1MRL0vxHV2cBPg
KTf65ejYRSKDf/XqtQ2F+PqSXLdDvir/8LBf17m1Qsw/sPeXmXs4Cqvt8ODo
JyGe1c43bKRVJPr4bfODeRdF+DbvvN51z0TUda7Npm9XRXiH2ezAsCOJaOaG
+Zah90R4XjPxtrER4Sj4l87VTWZivHLQrKIZHuFo+9Vaka+NGP8WZtz+/isS
bf/n7KZLWhKcErJp+TPTCHRl9XWnDskqf+3usr2TPALxPH61sk+V4KrNnxR/
l0Wi7/tijmwZLsMOQ/k9R8+NQFMGVJ7zeSXDy4NbJ70ziUDVdyYdfVHHnU+3
83vb7rIdD7tuT/NsszyO2O9vdQm1Rvrc+SP7r1/sAmZx54+Mp8zQHq8bR+yt
jqzeyd+KO2+Uqr91Uou/4kg+Sb5pYtWUgjiST3pic6JlSSp3fijBL76X13ju
e16DOg/qdsAwgOST9EtmfSjoz50fWqM1bIPWMH+SX/K4f3aCYDT3vS+7HvrB
3nI/Ev9UxfSemTw2gOADUfKR6RP8STw02rnEMm4d9/2vzAfltlt2ct//KqqL
tdZf7UfipVqz3uMcTwUQvO/EqvV7fgahmISFS+qL5Njvw7w+p7sGo2W6p26c
T5XjeNvL8fEi7ryRxp6HE/vd5frjkA6wfnySO2/fW7A58dsJIfbrMr9Gq4L7
XlhtqnnGj5fBKF27oGDcFtGf+R/B7J/9Ex81AXvNfU9s3brgj7+jgtHc/hd+
21eJsWR0kw43woKR/8Ao/WoVv1zyOXBfJ2suP/rgTWmbNdfDST5y390B/TZ/
C0Y5h3cV6ZpK8V7/hdcuW/uT/NPQuZV97GZw3yMLvZhx52J5EFrmEbnI4rcU
F1wy/LI9WtVedRFf+Z1luMnZATUuW7jzTtoIr7phw513WhTz23ZUQgjKPd3X
uSxYhp2Hedf8s9Gf5BM0/iGc+Ie0cz6PDc4Hoy6dfmdN3iTHOkc7Ld5xLBgZ
Ro/KznGW48X+j8OyT3DnoSy2J8zfnsDdN7uo1dYxA4+FoDD3m/EOA0X4pNbd
9oGTg9G8GaNWHC8UYc8Fx37xZwejjbOXnHuSLsK29cH84ZYh6HFIaXH7o2Is
2JZ8opteMNof5bAoVyjBB5duyLw4MhgdzP6YPmKSBEccHzHxknsIevQjfnrU
Twm+lLSpz+gKf5LPmtO1uk/pgmAksl65x19lT6/4rKibYx+MFvW5kDnvrhQb
j+qw4MUL7ryU8W2bNgtf+pN8hU1vq1ar+4agf6ybnGzbVzU+I0dM+v6bOw91
8amxYnh+YqPvv43ZVPIoKkAVH/fr+XKmTQLJhxZ6ZXp/r0sg4/WnOv+eQMab
4ufY9e3juO+55fjo62rNVqBflaWrqvfy8NNppx43j81C7daM/MibxsPWi+5+
2Bmdh47m7DJxNePhq/o3lvc7FY087eomxYzh49al/pa1Y6LR4ma7mrSfw8cz
Sud4DR6UidbF4aatm6rep03E2akej5DsftqqqaP4eMyNkoE/zueiJc/kvee9
5GFd3+6SWf2K0M7Bay71UuFP3fUujrCqQo8+b/Y0bMfHd5b0PVkzpAot7+zi
Hj6cj61Mz/198lYMuqgMH7ToAx+b/1tz8fKxGLSg/Coffefj7Ud+FOQtKkTe
VQ5fut7j47X/PDKKKo5Cy5LtkOy8AJfZ/ryT0qQCbYj7IM/eJMCyE++sVynK
0ey3x7rLrwrwsdKrU1etiUHvsvYueLRYiMOaiEt7iWPQzNBdRiH2Qvy2suf6
nKJMZPBxedmHv4X4n6wT2VsTM9Fgp/k/LacIsaDl0ruxzvmo8p9P5311hfiU
t3mroJAoZJ81OMVDFS9uWjTFpWrWI2Rg1eFafZoQR84/uXJzzzw0JKwm4WeR
EK8wM2meEJeLes3buntQB1U87nj+ZFb3MtTO6d4/q8qEOGTV/oHHLOqQiauu
PFuper89Md235sWgCcpD+WeyRLib8TxZWGoMOlF/9tmiPBE2btZiGPIsQa7J
3cu0nVX26H7YvmHWr9DWivLEZ6dF+IKi7+ud06JRT4sjB9ydxHj8goU58ar2
an6o06ujV8R4r+Xj+tWtstGI67PX9X8uxmuOTD1vZfwEdTo8vvBaewlelzxW
sG5fDOK93BT5851EFS/fy/puF4PyRx0/F/JDgjvs+fvM2qpMdM/g3YDniRJ8
4ku60/wCVfsNeB25Il2Cr/x+rAgcqeovw5/1dl4S/Crf8nVN3TO0fsLmNenx
EixYm3D+WbwKO7gbvSqW4C9hpY8c/RPRF8Ny5/TtUuz2ppnf5FuJ6Gn+ph/D
9qv4T+pEvTVuj1Du+t0bdy+TYr3+L13qyzLQnmumtafvSfERmwM3yj/6ooJB
697mbJRh80oTh+jIBHS0fEHk5v4ynNo2v0Zhl4C6LWhbFzlXhj9bOn10O1+D
fmgNar3UUIY3THfzSrGuQbvbjf+pMJXhbkXSSWN7+KLrc+b1lI+RY8PbQ2y7
RinRon39tC3iZXjOsPz2XfbkobP65SEtX6p+L/VyrsApDz18oTfxzTsZnhuY
mrlX8QD16GnR/1mlHDttGDvh5o0HaGnfcRav38jxiBlo2aDAXNTuQtKykj1y
PNV/7cHiE1Uo8lTnXMEFWG/mvjeXX3kitqd+AiqK1nepG8BT8cdXq15KlGh9
n/fVIUd52OWTv+3ExUrUx99xpp4rD98et/76hL0xaNkLt813nvLwhaT54/UT
4tGIJgdT3fN4+LP92CW3t8Wjk8+OvVr9TWVvBv3bd8KRBNQu6Og5t7l8/Puw
V+3kpQpUEl7QO/8UH3f7YVfaTq5Aq4OGhTpc4+OcC0G/jXUT0GrvyDHrTvDx
uvYPx7QUKFH3S753sn7wcXqmTlsXSyX6cDd0rv17Pl62cf690Z1jkVbfincl
KwW494Bevazio9FGi2t3X/BV8ZVijGunlHi0J7pv+nFjAXaf+GHeetd45BAc
PFyiKj/t54PMq6MUKG2rTtfdLYR4k1nkvB1DFMiw+PtC3XZC/Lfl3mXTAxPQ
HBsHux3vBfhrPG/p5WIlqtpXWSpbLcRHWvqnNjkdjWbWv2iV7CfEyr8+v0Cz
lKhl5S5hfLgQr9OezhdNVqIfpx06lSeq4gW9FTp6h+NRxce9bzuNFuFhu11S
0tYq0NpxX/cI14nwXBebr2ssFUjvmtG7xztEeJzv2DsP2sQgRcJvnwGDxXja
pfKwdb+USHfmhz3nTojxj4OO/yR9VKAmF8aUJ3wW41Qz26IZzko0bpBlyOVK
Mf43S6fGwEGJ/OJ73ur8TIxXPNKb2SIvHl2ouCwvNZFgg4XO/u1HKNCB989v
dDwvwVr8W4dvD1Kgvva+GeOvSLDpoYlXAnbFo6jVC1t/c5XgnU2N2n7WiyP5
sz3hz+ZY+iob3Qe7+g//lHudbNGxLprwS824UyCnE1/t7HL42GlbS8tbN5SN
zrdt/SM/pWJ/2f2iCf/cuB5fCM2JafR9PhfTazf4Q4R41JOXJf9O5O53Xf/Y
7dvlpqEkP3J5ylbbU/Xc9/oCz6gC7u7c9/o2JE8e8+5YHFmvKm1v2ktPEUL4
7OynRw/o7o0muMnefUGK+dx9rqOmaaUdfx/Cfe987luHNmUxje5zXZj+Kfl5
mATfeTs3e9KtUMJfrU6vfh/qGEL46V+fPRxHxviiuq4J+fevqfj/mGfbxzz0
Ra4jDfb8eKiyF1PGXS7c7ovi3xRVRRTLcNsu69roH/RFV4+a5B7KluF1LQaG
62U+RH3veS1ru0SOtz7zOj/N7iGyOOhw+85xOe4ysq9Y3OshOtNcPORTsBy3
uzLZoUzXD7VtWu3uaCHDsc4L5hbM9kXuvyuf2zWV46Ghl6qGS3zRTr/WlU6t
5HjzUC2TNY4BaHG6c9dJ/91fGn0jbHPlA2Y/bQQyk9UPXrxQgCMv9N2z4mAE
Wb9SDHipVD6NIOuLGv4RRPhH/I9Tpb+eRJD+2Dr97dTV64NQxbTup8fJxfjp
opQnv724+001fIX7HmDQqNyWSRcCUa3hubf2GWLcpXih36ZZgajl/gXN2vwS
411vBVenzQ9EvO23Zvb7Ksb6tX3dx5YHkfX68i06LaV+Edx+2ut6axeeCEC5
V79qH9omwYd2udaP3xCARuq2+F17TIKjy2//mrYxFC0KmPLr+A4V7jXgW7pF
EFpa+lzSJlyCfZ4mVK8/yN13OlqYvazOj/veoIHYwPXZkUAUvuha7YQpUjzj
ztjoySrcrGux4J4Kj+3esuCGIBDtumL1s/saKT554qZbC5U+q2v61O2zleLp
qZ/XGM/wJ/msVg8Sd4UODiZ8/V69TfMHJwNQsfPsLvJ/pTjZf2vBDlX/tRZf
7bLjpxQ3tzjz2OJyEDrf99eldQYyfL+d/tMA7SCSvynapXy3uDYQOY7ihxbf
lGHctoXZ6UuBqNX8E4uMH3P359Z3uPS2a5kMC71Xby6d40/u34i5lXPcMSaQ
8PubQ49NkRYGN/q+YfAZvy8vBXJs9cb5n7YvA9Cedj3OO1nK8e2X3jzfxwHo
3u/oL+KVcmzQ5IihxZkAFPJRj3/+nBwrLYOy1j0MQPu7DDMr2i/HJqrpt/jK
QxIPfA71GbWkOBSN060OEu8U4uF3fk2d4BqKwq7G9V/8RoQnaX9O+1QeiPa9
OZSse12M0/IXdAibGoTu2G1I8LQX4wmDLq372pa7b1S747ouuhEByJtvcnrm
EhX/CHzRJCc3AF2dNSdx9SwJ9qgXJSZ1CURCocd+4WAJ9t7a/Y1Li0AUVrvk
7I1REjwlZUDrD1mqeNTUdKd+Rym+3+PG54QhQahUHttvWpEEJ2asXVz8JZDE
DwlXnh8UhAeg+uGTbLQypNjRO9Tdt6Oq/gXRTmknpLjfa6vsO00CUesWn33d
L0lx+0mGTYv7BKEeLs52Fbtl2OO8lee8LUFIWXVu8SOeDL84Ns/orJC7v1Px
/cX7+z0C0aicvdN/j5fjx0+aLNQbFIgyPSLbvDOU46js3Sv1lgYir6rYv25p
yfGDIyvNTRYEorvTjLqEtpRjSVcc+u5TTKPztMl14vOhqvhj47Q2j69vSGDu
30xDLToMKAhU+YtBTYc6F51NI/5E9Gf/HpTX1J/Z6H5PiG809XP3e9rbScu6
/uLO58J+qpZ/fm/Dpql2/DPF5Pdgfxm8z9D696lHH1YT+X/Zj9vl3P2fGsx9
X1MNawobndeVNFcK9eZw53P7zz7T8cItPi55vv5bz0VxZL30unJKzt6+MSQ/
rMnH5BD/+MGgXrS0YyXBWTP65M3ok0b848J3XZa8O1NA8NbpPiMmbI3j9lvu
z7y9uSaa5CM0+BG3v9/0yoSkE3mNzvc2t6iY+P2EEI8pOJD4Lesptz/u0IjS
XlncfrkFt2tHXS9qvF8Onv9yKWjdbb1Sku+A/XG83A/27VqIcKuIwV95714T
/9zFbWl3t6UxxB/sqWltsJufTvy1Jv+UQ/AqJ89df0/jzgeHKaM/pbxuvD9u
Z9unKbdV8/euYryB29FCYu9hf9z0WqcPd3tLsDjNIzZ/Irc/rlPtRdvXHTOJ
vear/44j+SmtJ0mpnVtGIwtXS+8PF8D+JhL7m9HTJ7unTwEpH1Y5IrrSm9tP
p7G3CcTe3tx7oevmOWmED6yY1GzNwKZ5xF6at+5+02N7NZFPvrNP9d8Dku+4
ugivMWhfRfBr3W3OK5K475lOePtuYq5VCrpbP/N13BQ+3iC+9KH8TToZX2o+
tZX7funOiIuFu/VS0N4Ky1dTbYRY+mqf1tV2Kci4313JRlshPviu151dgamE
D8U6rz/712Tue6VrLi1Jzn2ZjDIuve1zYooEBzl/rC17nIzqfLyb/eJL/uT3
YgkfetB79MsVfWNRhyzlHCMTyOcpmHwe9z1SxZ11bU9OUCD35E/yrt0gnxdP
8nlW1lno+pdo9HxNR9ffSXK84sWK65uTo9Ev+egjm8rk+J7e053fpiajzyLP
31d68fCQ/MT+ri1S0T70c8aQTzycUKXLjz+XjLq2O3x47XE+Ln/ukbDAi/t+
aZiszRPboHCCbc5vXDS5ivt+qWM33cWZcZEEuywfGhUSGIbSXzsdWtxTiC8t
80ktQWHod4cdyiQTIe65ZGtgn6ap6NT5Wp/nnwW4+LnkTJoiBa0ZNLWdZRch
7hzL2zWsbQTZb+Zxcv/1uPGhyPHidNMTGUK8Z2b/XJ12oWhfy7luWRVC7LcB
ZSzYx30P1WZb87MD+OEEd3//96XSDclo5987Kj+q4pnYIs92w7Zz30fV3Ziu
mOwbSXA2GlXyUxKGupk/vD3+iAifMu1oGlIbitDEI7zCKBF+nnype/abUFTU
75PB4jAR7lh2bO76ThGEr0191+nJM/Nw4k8tgqZkxVzgvpfq+J9Bxdz3Uk+u
1D16eU0YWjHIQHD5i+r5iN2FZtsiyf4x3kmFVO9uCpItezt2YpFqfu8Iix7k
loJ8x5rdGvNKjA93+bDNbkAoElntP6J/R4LPuPO+bP8WTvzrxXM3Nl6Yn4wG
r2shWO0uwZPHqgyeB/f91Bfevzdlrogk/rJXp/njj3kr0AOj2Mzz/jI8/1n6
8h7HFaibVvn3GWky/PWJ2xA7rQiSn3vcZUDzY14xSDq0vNk4RzkuXWC0vfJg
GHJ8IAzUeS3H58e07/TzbBiy6rDN9n61HC80aLvFITyO7O+bmzDft2uzWGRf
nJgwrTMPx69u+jjHU4GsTXWml5rw8LEYW6Hhv9z3Vue2t3B9MigczRdMXDj7
XwFeKX2Tcvp7GFo61mPaw28CLDI2edf9WCjalFCUJ78uxKvOWHU9qhqPVVXf
9a2tRHhhmusYvathaFq6nnbKchFebeYxca8oFLXY3CnDuIOKPw/c825LZhia
2qPolXaSGFcVOWBRSBgKTOj6eWOuGLtomf1KkoaT/PHyOqN7CX24+1t79g+p
2NgtDPlrHSxPeCfF1aahfV29Iwg/VK8PWIcT/qZUmmn3+BKG+o3ovOrIZBGe
biyfsb1POBL4lzc5PlyEc6Jlze3ahqOYE7Nsmt9VjY/jjgYxY8JR1xdGaPsZ
VXzcpd/Ueb6hSK47KWvFAhX/+rC2s6NtGOq6oUunIUlSnLLfeILLhjCUa/v4
r4uxUtxio3G//V1CUauZO3nN3WR/7H8Msf992/Yv2fo9ptH9qUF/+KvGHkcT
+6vJ73Lfh41eN+ze2bZh6HOrXbZ9DSRYNj6jVE8nDP0I7+YlHy7BI9dMqv53
WDjSM5s8utkSKV5Y8WJx/+AwdMDj+LfDKn63taVkp9usKFTQemIuqlO1X9KX
64+mRqGXQY432n+W4grva99vZ4Si5lVfCj16y3Cf0dMmXlSEoifad289GyTD
ulE1QRL7UGQ0YtTtD2YyPMjpUU/zfaEo0/LKntX/7T/8+S9/DwpHAW2Out7d
K8edX8602bGG+15tzvUN09rs4r5X6+hvVdZ9RjTxZ8B3jrgY/ChbBusJcWQ8
7B39n4NJZvhSCuFL02wrdnqEJBM+kaJnPNv7TDLx1yc/8VrmfH/ItL8vaf+c
oX3bX5uuQB67Zg3TPsrDK+uvrFvfNg7N26Ab9ukfHv51LrlHk9/Z6PDkPvzw
PD52H3zlwNzcCnT69JWaj6/5uNcARZThlgL0dearX9nHVHzsckJ4zwdPUcm3
A/j2TCHe8m7dwMIlb9DFerOHU61V/Gfj4lqdywVo44FTd6IPSfG7GyM99zrX
IsWVrk4Xrkixx5g2nkp5GhLt6JQ87q0M9/+nZR93+2rkuTRlWs5XGV4r3Jdy
0DEaLRwekJ6wVOVPJvm27j47Gs2sNH/bf70Af3Q4tlnXLQLt8jgXOnWuAA/k
5a8f8jgGdR/dpdp4nBCbrek36s3NSOTdZX+Cuco/xIc9G2k3PRrFvp9efSxb
iIcMGCeYPzQa6aeO4I0vFuLr2Nlr2dlIlGOyY5DDXhE+vdzG3jMvGr3Nm3Ju
1SQxHrDj+Pp9N6LRZd0JT4pU8fbsQbG9B6rm76E8P+c1H8W4qIntpZYHolF/