From 4801593c898b48ec6f0040677d87c6c5d47eaeb6 Mon Sep 17 00:00:00 2001
From: KtorZ <matthias.benkort@gmail.com>
Date: Mon, 3 Sep 2018 22:12:14 +0200
Subject: [PATCH] Review examples and the way they're built

This to avoid having to carry unneeded dependencies in the library.
I use a symlink as a trick to make the module available to the examples
without having to require it explicitly as a dependency

This commit also makes 'deploy.sh' less verbose & fix example publication

- If the tag doesn't already exist, it displays an error message in the
console which we ought to ignore.

- Also, the publication to gh-pages was completely broken. It will now
nicely create a single commit with only the exported artefacts and get
back to master.

Finally, we are making examples a bit more sexy

- Review overall look-and-feel (colors, fonts, sizes, etc.)
- Remove the 'clientId' input and hard-code a demo clientId
- Display current 'Model' next to the actual content
---
 deploy.sh                  |  21 ++--
 examples/elm.json          |  27 +++++
 examples/images/google.png | Bin 10841 -> 0 bytes
 examples/implicit/Main.elm | 209 ++++++++++++++++++++++++-------------
 examples/src               |   1 +
 5 files changed, 176 insertions(+), 82 deletions(-)
 create mode 100644 examples/elm.json
 delete mode 100644 examples/images/google.png
 create mode 120000 examples/src

diff --git a/deploy.sh b/deploy.sh
index 818f49e..08db4ed 100755
--- a/deploy.sh
+++ b/deploy.sh
@@ -27,19 +27,24 @@ else
 fi
 
 ## Create tag and publish
-git tag -d $version
+git tag -d $version 1>/dev/null 2>&1
 git tag -a $version -m "release version $version" && git push origin $version
 elm publish || exit 1
 
+
 ## Deploy examples
 git checkout "gh-pages" || exit 1
-for d in examples/*; do
-  if [ "$d" != "examples/images" ]; then
-    elm make "$d/Main.elm"
-    mv index.html $d
-  fi
+git merge --squash -
+git commit -m "tmp"
+cd examples
+for d in $(find . -type d ! -path '*elm-stuff*' ! -name '.') ; do
+  elm make --optimize --output $d/index.html "$d/Main.elm"
+  git add -f $d/index.html
 done
-git add . && git commit -m "release version $version"
-git push origin HEAD && git checkout -
+git commit -m "release version $version"
+git rebase HEAD~ --onto HEAD~2
+git push origin HEAD
+git checkout -
+
 
 echo "==========\nDONE."
diff --git a/examples/elm.json b/examples/elm.json
new file mode 100644
index 0000000..4bf007f
--- /dev/null
+++ b/examples/elm.json
@@ -0,0 +1,27 @@
+{
+    "type": "application",
+    "source-directories": [
+        "src"
+    ],
+    "elm-version": "0.19.0",
+    "dependencies": {
+        "direct": {
+            "elm/browser": "1.0.0",
+            "elm/core": "1.0.0",
+            "elm/html": "1.0.0",
+            "elm/http": "1.0.0",
+            "elm/json": "1.0.0",
+            "elm/url": "1.0.0",
+            "truqu/elm-base64": "2.0.4"
+        },
+        "indirect": {
+            "elm/regex": "1.0.0",
+            "elm/time": "1.0.0",
+            "elm/virtual-dom": "1.0.0"
+        }
+    },
+    "test-dependencies": {
+        "direct": {},
+        "indirect": {}
+    }
+}
diff --git a/examples/images/google.png b/examples/images/google.png
deleted file mode 100644
index 7ef3e0106832b7eac7a52c857adef47c59f9b320..0000000000000000000000000000000000000000
GIT binary patch
literal 0
HcmV?d00001

literal 10841
zcmdUV`9IWO^#5y&CCT<ivQycz??gtD2w5Ttp$J(c>tIH<nv^WrvxQRGmEDN!TT*t$
zkR`@4gu%?bzAt^gpYQ+h^$YInJkCA$oacF-d(XYk%x+v`KFNC$003q~13e1>pn?9R
z0Z!0Ezy1dQJOqFX!iIX6ErTc5XBflYSY^m>r9APxaMI=u?aB24FZZmh8g_zC(o`XO
zh4i9NP2d{CRRas(ua^au`CKb6yq~*xQ8tQC$uhad5K};7Vi9%!8kyfto36p!oHj91
z+Qs4I!C=-c7=uw-*6-PUGKj_Pe4Nuq<}?lM<oM6}_x3_&{QvVK%pzr7rsa6BtuoTr
z+gW@t0-(>Pajq-PK3=Tsn?#yEbayzaN*&#(zB3sr=jp!L?B<RfTDF}G9hLT4qulUE
zZYH#stHofkpX-~Cz7(y`V7=To1#KoLDLSN0t<zNM_~t!#kIe;{(&mKNU|)CJ{Y#D1
zoh;i)WW<jjlm7Ppwwtf<sLk!IeQh4<EJC@q)Qc5GamANA_)TI|x)!Zj1l^ngM{K-F
zAJ%0c-YnYG-Fq{H68zO`lVTyU4L6!X)>52^vatrdPuXhY=ob#Rh9<dqW1nZ)B8S}F
z*StMFH{ZCY!hoE4E~&DMo@A4j(swG~-suwgPhE|8KYo%-y|!<VZciHe-XA8CQF?oH
zvRN6m_gd~13@E%yCG@dEYw>?5@dU+(aWW0QGW*}j1&%*bdq@R;dF{8uQ_18E<?<Ex
zi<D1NENPNJN=>Z)E$f<3D<M|F)!@pHFFBiW_x26?J0e*5o(S}`L{<DHW~6d?q=_4e
zC^Di80(<KnP_sY2d@lF&UOO0j<FkJ<)G71H#z4<f=hEos@=8xYhy6s>?%=xpnUmDU
zWc&Sv#uY9CBhK>-H5<kDfN_?O8d^CJ0~lkr7-#)6ZIO2cF;wpMLrOW<qGYZ>-8pio
z&9;WKqN*Y%`bmkyqlwE-%wUnz{$X0X8nOMP&+s5id~CVIEzu*{B<3_lZgg`hzi0L1
ztNT^It3UsC<fr@cEi>{<&bkw!rRr1ja?P7}0yM4O%DIi98>BMI=td*wj}$%I%{Tb5
zgzV9VJv|<l)?}X}r-on~+f9cUU7|gm(mMN%3#Yoy#0@d!O6|bz$&j5GP=1Fw0Tc<o
zNMw5*O0@@uU<B9=Mx)xZs2{JekLR7h*vGL_uK9JMn`r>al<ayT!M{F?+<&GER-U=W
zk8aqeeco+Sn)VKk&OL+vZ|uk6iw{H(zxChTNFv>3bqp!#P3;*PGmFfru|Y$YHO9sR
zp<6${Y0EO74^p!W44qo#AnU<6k$6O{>u4}u2y3a&&Ov9x8!W9s`*1?zQZ*$S#+i}2
za|<gm@oQZxLLpy`D^_2az^*=M%HL|qO|9q@8jJ!9OCl69jNte$T_|k|dG<OY5=bWe
ztu9m73Tp==%}7FKDc^odGyk1Uo4%g@yCBy9&G^M{u@~N!NwC4sr%iE*m`khuC+o4P
zt=VIO$OkxtwcH%4c4ULEUgLC#&N_i=s`<QZi6{Z+l03KguuE2n>_x*TKKaE0tq}%g
zznOFYHcwr|O7u`*Ud`NM8U%43M>%QDTBNyR(TDV>77nMo%U2>QbKTIcmA?f(vU+*1
zHUGS<eO4ul))pyb>iy>LXP{MxUAyEV3u}KVCf4AOXRBNi|9&z{g^}OU9lx;hvm)~(
z&x+-pciBg~%LhFS1*u`GukG4D$Up7A!7;s*d|CLqW)Nw=1r-)<d6{i^gL#FrwY}((
zv+xYi6REc<Eowdry{hxHkbQ+Z?7qBfiBtq6RaIr0cCn9^c~%9<x>_!VbJX9i?MgHT
zxD?QKR7*{3<)RiLX56G^_b%T5vhbywR4<Qeqp47zZ8Z12g!xV~CMP6^U&qjP^2^?9
zX#5NEJyT`SHAc1C05C@UgqdI4;L;x_lbw64{vvx)+DT;TkOH7cVG$htd@Y7y?6csk
zE~m3YYlG4qYoR|qG@PI1z3N-PYU^@_8s;6Pj@%i`Sz&~878OY~q}gn8-)m!G;blg`
zZ|oPsFxTtW2_|@%MFrM}B4U4=&;l}E9z*-zV3^kN8Z$Ct4ln)f{H*kuvi`gEev7ai
zL~Dxr&XbR<EY{g&+d8N3T`1$;IQW31MH{9ej(WMH=MgKHrN5;_h{*dc(S6L>d`4@0
zgXr+cD#S1H8AAoz)nQt)^|sQV9$Mq~oqMwxJ?2G%O}d=FdLsFDyqdd$bzvOyHC!Gq
znOL(*1?zM<7hRuVA9_1zb|s&bAk?7NR*kpO#5}Ho_gUzv<i1+1O7xR6h?(-z{Tr;e
zMXuj7ZGCftnRag~wV|JEC4-`RvECB7E}jZy)yN3bxT`JqK#%93OGI_Otmf!2Ide_x
zc8o;K4lESxIsQDg>MB$#nMSd)Afvc50TE7=aEJF@EuRMxRNLG;WEGgM1XTy)^<gO0
z=R@Bt$+*LTLpXY#weWlC=jyv`7%(Bw`hSHydz@Kj?W`}=iT|%q>us9}$f4HjCd4sX
z&Jn!a3@cP=noEjGk8JULTSGAgTP?o!1Ufu9c1)!<D0g@|&?VgO)lEN3!k^{+TVmWA
zG9g{7SK3YdMv|pm)~xLU&5l`|QT&o%BC0Qwr*H62#v7l;DsLN){U2M{{nah-(OnC-
zByinVh+-wPehJ|Y6)>V}ISDT6?eDdFv|mK>pb<N2+TXxMJCrjM6MeY|e0LzIWOM%g
z-e!`8Y0`Kbu$y>XEO|j!_ce+cY57Q><a$(8X+e(sAwl(-%$+Z1Os_a+f32O5tTNzr
z39LJ&(&I{za{Y!3a&7W$5^Cu?Cz(Quzw9wI(`iX$z;qX1op8bD<#wGM2Ha@&)Y?))
zZHF>bzkFVn^T1Y#Wn`KTpB<_B?Kb&)|8zw8$16AGotwB&j+p7}tXkjuvW?AVkVh-z
zhW)SH{)i2B_ZTWUcpb&inS|__jdK1YtgI!K+(=lAoM$z@MMSvInrE#k)}C&FmbxdQ
z8m%^0n;W<>mXP{P^K*9X;njSeP+JM#D5pOQk2DHMa1I5Y#wO2D(kN<1j|*kes<iO~
zbP7ge7vk0ILq46FZa#*r)2+ES=Rmy;2n(>7c@$BP8<H$jq3ms#imx41dE<T$K}8LN
z>$*Ry_nrigxj-$?{xmP-!SQ{1a;JGqW7?)CXiu?Bez0k7HLCqxY`JNwDJKfu%&AIo
z5x+N*D<*7Atli%@fek#*u+d%f>@}GuPV|Y?ojXV&D>5vn<HgQ0LX8v5DlQ<sYh+w$
zQOhV`5nmAy?-R53`+y%@jGR4!)VaRm-)SsSol<z+fe0{Z9W3xSZ_mQ+>hh?5P8vCp
zTzPwPwA!A?5RCEd1o@ulliuYs8VpXe;?^B9p=_=1zaVR<bb605OrGalhtSj6)Q$`d
zJQ6&@l)xl9#2lA-QTy*~?_kYEKVoeCGKR~Ho(DqyNTJ_3fVckycROy8jY=Vf3#KnC
zUz>}Lp7^wq!To@?rGx|@W=tbDmEV4jdZrA^Y7-BaOEWC;n!wB|rF{wVxkZkY@cfj8
z?CoqIEOg8QobDW3W;>W1?8oB@uP7<dHUl3r^cFMjyhUWN@UW#2&WUYjgUV{K9-F`K
z-i+OpdH$oMK72iUX>>NCL&%_L;B$stss&LlR!rDVM~T<F*u$i(^z~(THB}j&wGy(Y
z8Ij?n_x<(hB@1cl%?aA*UA(s1PKPU5IA1cI*^C_dq|vKKA<nzkr8d<ME}vndLoy~L
z{*G;VEoChzjGRx25BF2?SJ#|#>JXB!!MElbU2i6t-sAASzZ25@xhht#u1RuidN#az
zo;4-ARK@>vTs1YQun3m^T`aG3zt4MhfwlQwhgDq6+3<QuB>s16?p6;jVZ@RwUch)J
zciYEyO7=c!A<&CWdM*hKVLIJ+Zm4nOHkoOP_A%H{6tLb?6?3WbQ}ccyG25IRc~+Jx
zcajejH1LO4;7oLEH-k(O*jkG(6>3RHAzi8`w4!@nK$!uOh=XvZ6>a?{<m)enKF+<X
zNt%W%l2n~XT%g^q(LG7((NEf%-7u(z5U>?;dCkks7=#&rLSa=EysZ-}^lcO%m~(ue
zq}*1YTjaOV6^R+59SZ*<6$@o*TZ~7<5T=r}d6|Pv7HM;&$kV2Gd-Tg57mA=O(jk=Y
zix^mBVf6uPyQTrHn;dMjgBuRe=F~D)K3@qY6`I+`O|yT2+FHoO2Wqn+iD0{!aDBgc
z_Iit6pgd2K>Gdld@=&TKKbUIc_;8Oz@bS54)t8GxPSnplcV<YQq^;SPW$6HY$c8}j
z&Ypuch4CubbHYgEoUI>EhY*^R8}wZ<l?Y~)B4eNTQ*2MW8Xv)5ZPN=|Q*5rH#<Eae
zd-*Ru`=|Au1T5BzuZj;&X7_1*AjNgN2r?Oo$fa=sh2T0?b?0ga%GI-EK>arZ`Y+Sk
zw7=?7l_n?1hUYNgfuU=`_XVL=>NFD*RG<*|LVO^XJ+KjRZ^U7*(N>YC_7KJvXA&^+
zJZvqOvMW<R@wy6zmY6n2>{M*+Avh0esR_{mV6qDwP-v!LJBqQZff;~~a%XCq3G3Qy
zt=?TS_B;ph^twbu`ODB5L|XHoFQQ%i7oee!u=jnQPeW(0WevAZ18lFe{C7@wlJ~GB
zsz)p~fX-uG7}>I>1Ch4Q6i49~W&)n}mLAx|MgQ5v8;nt|smW#{Yor0;i+Icw7PGgG
zm7NlU15ayU-4SX({HfT5Y!omrO;zz<)(;&7uc-Zcb6W=bZZS^YA2xVL1qWB)Y(-zg
zsI9(#2JG1*cCde94-cc90pL*!MXp!&`QvqPQC|oh%!h6uxUlE!qFy922;b@9BrVx3
z<#e|k;3`ARcb`ELZeINZ;qK90l!(c0INRq67V2X6%cF3|<A}#=0mBWCsO0778Sq@9
z7rF5#Byuzb_MJN-Y_^!}PWYW;)tP42@mhMGC~)YXXwD$~uxDc5=@1-aZ>HdmsxvdW
zc|(ALK!5Mqw(epO;r$c#^sf4e<r#(WeQasO-XnbhfLW)GMy+6zsu`~i3{R;CZS1uD
zK_%!b!7GCAHbWXioz%!u=k6SVIqVGRH_WYAePs$N75dxJzbw><^CpN-X`f2v_kYh0
z$=3dUVBPSS0XWNnng3WYLAF+^?R*N?nIIj4*9zPKzYHN>FJN5s69~GV9|1SzCjqwU
z%-jG2lJrL68D4ZL(-ObOH&~u$7zO-k&_cmE*1+a^=;wSE+<*@_?|=W~iDPEK=SzZK
zH896C2^Qc(Y0Fmwc&lvC&mk@8?D&1X)gW-pMNW0nI5o4ZSRt`s#Vzz~P{*IRK2Hl#
z&d%hs2jor5w=d{*2*}@Q-JU;2ftpU=J<w4bl{c&p7v9sjm~{&p{ssJefZ+PN0jlWp
zGNZ?bNZc7FAEM{g)A#5d`wIFG{*7Y80cKp{L}BOge#cjR@Kqm52QHlR8CG}mK{Bse
zjxtJr^*Ksblb81mJYJO-sKlCMmuk*AtCdt#dT&Uwhk+0-ph-`%Gc{!1NSY~ZgEn((
z=iC75u)$jx8{M;C2V*_n79yNosHbyG=#hA3Ucfxv?XT|ThrDRHA}SNQ!8qoh0{_!G
z3u!KDlJ0;ayu=%FH13RxGSK!8y~WVR7&2v{O+l5KAJ0@r>-(Hg{QHHBT$bSMD<Pu;
zIvpW}A8vpi%oPx1VR&zxj8CaKjziWV6Z*6Z&arS9c={xVZtHVc{i%0_S06DsdhPZc
zuU>*+1H2pU^}XH<3$~f$L)-dQOT9QYu)8}zrNuJ#<|Ks7y-${=;Bpn~`5=Ka?#e(x
zo)YjT#OQfS7~I#XcN3`Vk$~12^D^d*$z}>Z<?z4OtC01pRXD|7$fU1)=(0{$Xohh5
zxgALyK+<>{Pp@OF1D~7Fb!UqE{mC!{zNLLU#u>qwS9vA&<|=b*ki`rj{h_7xpJFU)
z9)3zOJL&XjH!6GkKH7fj8Kj`q9c{wrtX?z&MB8tdw9r+k`o|tSM=TFUDuEUmv-!KW
z_)rSnv9tO@krz;a?ZZ4@|Fh1^-5dBKo0+We&pcL|RktR4XrW3#zyz*1lrc}tKmMPW
zK_18U8O3aiT-cdMtbiNv?QT~f&kgq>Ai8>cWEz;hqq#<>&jb08{GZN96lCBRjkFNy
z0p?aOqn8>#k4@*;;%Yqyec<x$(G*^{h9y7&^FEG6+Yq3vCDtxELodwP^-~SV?>P=%
zG(C``4VRZ$XKrQQ-DTi8_VpaIj`hgf<JGs&1Z(}u0(Pod{uz#cix=U!VaSvP2$?{|
z6CwikV`I|MCg^?0+emuhv~YRIm}4?`N`dBNyiIc^6>`9-)=MR`3}!bkP5m>G4V#Eh
z**m4vyGb){XKU~JPgMQH3b$hRkDOzAzOn0thUyD11jTza+Hf+2pr5WlMA9}7+M4g*
zpf|kfZtTq;ZT7%eQ4>sk=zsLCLBVOE^>xYQL;KDU5j>D+!Pan{{{MA#-%V}!);}z8
zQk7ae`<&H9wc%!zo|GZL&gGvG>99Jz{{i4Gq7aH?MbGd*JiLstH`z?Wr-Z`4=WH-V
zet0t)1A#}&&)&obf?v&x=Sx(ZNgvuKh;+~W!}53fymP4HQ}1eA0l!~zhDbQu9xU7W
zI1aj<WR-)9$8M}$6i7RycQoH){+AXjg6Nm27oZP({mZPU_!b3C1K?&^lvn@qG?-)V
zt&3D2%PV|J(|2GxXS*6``R8I9RbUF@1-98&<&gZVkJO@nKsx=#<R1g@GfXcU0pEeA
zm+Zhz&qK8dlRFOpZHSD7vl)Cd|EV4UlpF3xKOVQp(hz?_KezeM{#Uo(pxzL~1dITc
zUoY6R>E><#kS}#|fh7m&M#Gpa?xC!VLmsr<(ne)fmAgJ4M0L3L4*rwuRauq>C-0Lu
zeb4Wjv=*##yiiS^1RkqSb67oAp2<3-&wGo%kzvx13iJB~X8b=+6sy9!AFlm{Ao`cb
z{U3+6ocXHX`b(czY_P2?)<@5mc}qNAx#T}>x+ZxFv(5uI&yb17Z<%APQ8tvz3eqrX
zyP3yj!(vvdql5ODRQlEdw7mJl2HvbN7$CYbI%y;Kv=DaNy~atG7j0yLV$iwP{?aCG
znN?x3(C2iXY@^JRAsE<aa0MSTPuhW!;|()H=|`c(IKy|2c4?hDfvv0hd?#;{HM5q#
zDNt~vP5rDIRRG0j2;WkLjPL|_K{3n~^hI9W!y3aPnShKiPG%kZ-Mr!0HpbcoiUS{z
zA5BqC)6^osgSFO~b+(blFA=Kq6`<coKGUZQ>sUPgz+(x~^)&fTzB=_hrX1E*&j8K1
zwTJsf%7F?Tojo(?RAczr_x7Oc*$D>UsNq<O@-0;veyab?^Jzf%I6C<uet;x5KhE$<
zpix83C!alz5`4t!F;BFEO_Sc~XInNB3lEg;xdUyUU0pBK3D@A?CrA?pyyz~E@_uaV
z)8x>6dGD76ux^))*`ywR&u>nfzZ|Skx7Eq6$}j2jhGF-<iAcl4v{P-+TYnbTAPwzP
zC~IoATQR7~C#N$1O#uR5go$1sz!$GhD01F$a2;W;R0itHI@5R`7re4N#n~PLU=iGo
z#HP@<EJ)dGa?o|@4s7v9e7@+%H2#M_pXs{+5o`m}I$pb6`uux#w>ca*OyS>a2A^`g
z{yjPE#tWfsSVkq|e*8tkWg>W|o#1R8rnLr|Y$~tnxp)j@cMu8iGYFoo`}zVo_IkP0
z^<&6)^9B?s-hy1!#DilWe$aa4os9qu&apO1QUzqJdNPBhJ5ZOcM;^Srk<zA(meW&V
zGD~aje%~&{jhVl8KlF$dDZqbPKfCR7y<9>GY&^Zs8?-SQV0xjYwKD}id0EU*kV$n&
z_L1M#lhhEElf)#h(~<HL<6PZ<hD>etu_;u$Pg=Q+_Dna&j&!T_+lPSP1VhphTfCN*
zWY|8+)8txvyMhY9)W9pJw5=!8#E!jCOz*ht8u=?%WqYeIbFfpcYj;nmpxP-TQT$=;
zlB>XfQ;Iqy%Eq{5?i<&?A~r`p-M=0yUvfGWx|dD&zAr-b3ltzEwK!2cv?l|!XAZAy
zro>TLaurBssx7Q@H7lvGPFI?x1|a%<ObKYMueOU2JP_3vN=id7x{S1k90YZa(K@Tf
zwMXWhgFiK=SnbBitURn!X{iNcWqSJKPND7F9<(NOsxz@YKu~8_INtiwQ?DwtP~vd=
z$QRmL9mj1Yi8R>5YF00s><map&y&Goj&_B*1pP4}df?^fHwOzY06Fq~*@=k52_U>@
z=7b_z;*+$dupMcq`3#QA{aAU=2neQk5^BY$r@=b0C*5AdzU39aC6+$&CNo_F169aH
zr_ipMuyoD+ke<?zM-l9=W?G7%8Y(S3aQd<8(6jX>@Et$df9O-+PFyz)X`vd(eI9UH
zSQ$oflAHr<ba+J>aM3DT%$1PYJ|N;OlVeadpyKZVo%;gAxwZl!2^qq}Fw;*Rs4xnm
zKcbr^7;<Yv|9-(6$j92*%9pFq$|d$Q!P`$>#&#9RQ0-q>_tA{QZBM&UgZirhXqF|-
zRaZeV4uh!v56QU>Bfo-;`hCFqGW~ZEZ8>L-30`f9qPPSd+k`HQnQeCt9r~<d>Pc~p
zEUFg|Sod^qGoh@fk+3jcgFm+8ud%`#^Fpd%skfGcSnJ*KTZp5l<7JEy#S|c)QQc70
z4CCjq&8$#<w5dgU_XnHy>8{^<PjquGU7hlt4f;DRIrR8c;0!M+d|*XQ_x-tPKa8bl
z?hEY=3_M>RIORaA^&gUhje1J;xFeU!p7JdV<a#G0I2(rIL=sum1ZELF>s4=^X$f!T
z=^`@d9m!#6s|}{Sl^3}?xSt%*IXPe(*L9wj5I3OmtGfLzT7VZ#G>I(ckbH<w$~EEw
ze~)5g<CaSwW=o!PL}j5HR^>c^h#>veX@3{mt9Qt_ViM@RjwMzr()81C9=^&GfZ8S2
z-6t`ICe{%leq+t^xlI(cOG%zjQn<{7d%mjkqU}wfEn@z_^AB0hbXSQ>xZ%g4<3#ZN
zJa|Onwt>+-9x32(Jvck(?m$1i77r9p4*F2C1TFufz!@;=`NbO=cOK~EyFwVvwIJmN
z>bG`}W@<clp}#3&d?d#>GP8eyZ2FwF?^HT)d@hMq!yR#f;tOfZ{HTF$oq92}p-N55
zd`gbbVEvu1sMP>0^Enj<kKlX)`dKCfk1|VA5Eoc&TIcPY=jZvp+|RiN6}t$Cb!;7O
z7k_^|oBR9jX6=nLmgJyy^5(<PGy<CO?}**T)<Au~00ta{*0A!iNi9Uak4^0F02Vvn
zpV+d^kei9jL=$g<-UD{w#UmG;3cN}Nvfq*rMWjs(zGXWu_UL2S+3x5w>*b+d>0Y6P
z3_rO&F~`fU3mz^fjGt5<r#5|Et^^fSilx606o1OHUO)W_?}i)-DM2+Q$nM|sqG`)V
z;H3Ecjn#}ZP3k?P=CN5T<-xf0xc`o(Jmab<aYs^!hIb*{_8e?1h~5BYnIuX1o;LQc
z4p!tKZZ3!B0N+s&#hCC%%MBme;|}}AHoRs#e$qzQf^yxQ=`?)Y1D7s_oes{O$2LlU
zRQo6{C1)n&{guhL2?DF-O->FwvKX<vx9;5mSoxSXi&jl8(DhkM@6<Jh4>wX}2+w|d
zB;`kLH}0uzTHt6u4c7LZPS=e(AV<2-u-$$IxojYkD<Pi6GRM^cKp7|TiCD{$?`u+2
zV5XP0Yl(+d6$stYR?aCq+i*WOnjACoz6AA>&D3iZtzVa{g$~I0mfnqL-SsspFs6&V
zf_(vt+`YUK|KW4crczYoY5ZlZyR-e(H=jfjrCDPnK?h^!!QBYWOD3&tWu4Dmm^l;q
zmWNQ@<7~kn=dsI1G(C?u)7|^sUX)5^X-_*4b98SUyu&iOjjOM1H_3VAtvrC8c1e?@
zA}3D#wf-cuksFdtct$A2V*U0EP>ZoWgSAQCG;L}ileHS<83F1=(X3V-i&I{=Hs=d}
zs<<rwq?SsI3cnzGA~#N3-s<31gNe>UmkS$b<qQ91Z8>Q=vMv!9H-T=!Y<h0W4fPg0
zZg6$%B$ouQnO@`gUh$}BRWz>mtb|{d#|J*6#gAyHlV!TWEP)CR&f9Lj!DgJGS(X`c
zTb=iCzG4(~Q&_xHq73UP17idZxckmaycWwVJN&N$g?a$L;Pa^3(VY)0!<Nsh;0;zB
zxIA)R>vB|7RR3wNV!Ym+YP>Wj&$M;F1BG44%-^+Qa<+6g)ZQ^x4Nld4$rZryeYi#h
zk&ZCazx=FTLrsov4?bN^+T5(tSzKs`bEVD91pOSY`cSuiu^p5e3JfS0b4<90^m3&J
z+t7(#kfzHnC2_BML~b**i|D3#Zz3k?B(5&C1X#V!H$2j-ihFCh^Ksd>x?JkRXK=7{
ztXEpX>As802xQ-NqTGsW)P9TuB5ZT6-;YPNBL<aMbs=nYzp{k<N$!P-j{5qhe-)F3
zu!bnqPDdusJFJ|MyO_&+7jZvTI?L|d+J_q_P<y!o8&W6<uMm|*6CKwD)9gJ4_d6$V
zTZYeDt}__85>b<akpfP&A@8K(#P8n5fysDkugU^yNpi5H<RJ}Ir{aHxl{$Sfj!KzG
z>1(+~%-ynyTx(DH%ja`MRbVlZd_~+Ojag@NjFM1iZpxZm<zV9la$9sCW}znu*SNr*
zy8C&4>g2;eiPY_@Ro<JTxUGaef!%rMOax&?=$T4_SS_Pl7`8u(^WS+w2^Nk4&+DTW
zP1_A0Z{E;0PmXL<Q@kAzmVWu5Q9gOwzg{WCr1eQzad}!j562HV&y!k;{QuRM5Ob3r
zI9_=gG_FocDZu()!8Il=a%d=Wndr0+WLSwK9K>|bCz(Xz`_Secs9slkZS|V6`Ja_v
ztK4qb@-^lY^6-({oxg8h_c^>dP5W4xS!Tr(x+FZ2H~}3u&MCv7eqh1V^(*0v)?(Jb
zSjx-a3m6SQCX8oR{pq>;)VJq{LtN}KU(aq|Cvr6lO*D$QrS|(0qliV;Y8BK6f4;3)
z;Jh%UlJ8b_%5^d~gFpD@1&x3)$Bua4v$#IpN)(FZ>|;*~kLMkk_n<i)xHv?lr8Q~2
z#t9}p#SuJDUeFeteLuupO~-6lX%g6PdT1L?0?C^my{;RXy*@@S@g|sX_4MW1&Jx;8
z^kC<H$TqC!(N~7(Avk1q(k0{^)pv1y!0F4}<af?6g{BaPY-!O`%$AfzH-`?RTGYE$
z(I5xp&n7%Iqf4}l8`q3~zbuLyO(@L(v&G8>`LoGuzc*))yYZOc2!B&tJV!EkLvcsG
zre!;zowDd-x_9B!zEzm}7$2pxhQFEbJ_lPM+2O7#oyj?~!lbpRcEiXuE|iD`<W|+N
zMrzezlok>FP7NmRnuD$Xa!B9d@bvFLLMtD#e{_h?dEBa`1`Ei*K<)k)7%bZ#cgQ0u
zGwMF;ietCojkN(^v+uXNM`A6=F$PySz6bX;S-nuYG=aX9#dteAqgo@a{tA)1pb)xK
ze5kq8g)D#}UG5J|*E>PiiIBFUG1_Q%P;;q#&{eAk9iGMbzONs&S|j4N9k~h~-`iDN
z4y%5!E9rmfE1Kdr)Ea+)Cyi=ef^HU{)!jcje9MW-lmD`x=6Z$0w=wP`TL(WEme<|^
z?<bU3k;GsGU1z@HDmby3a7F^B3SqWMoJ(Gz4;FPzuzE-0HmjWoW<`A^S3F4R_-gcm
zhH1om>^42Cy$Gg&<bViWSGX3c2uoJt@ZC)uV!iniF4&@L>~813+;E}mh$dO8-b9wb
zNcs?0!FID^3FmO|x{|NgjsQ0{=cuS6prO)Wbm>)0`ZuT;g6UG>k@w^;nuW}M*Ma);
zt|DSvrP%WA;ly38<=}asW0W>qP|)J7;7?uSZ>|wsSK7lDLri(|BxXj`7QStz`aNg(
z!WQ$qqW_CK(jnxt_$jk#B^XX~KBgW1dMwnJ$^6v_rA1>JY&)lAgHDqFQtWx?i&_+g
zF0Kj753m)(qa1V+%@gQduD*5wn*ES;rb=rCUfvb!&?kVXOnruDVL4f!H9%y~x!PgT
z)NTb{sPA{jCb*8$$k4>rI6)Y5Aa+c(p!)N3&giV3DlZR?5`~FSuXzeVn}$+x+E*K*
zky{$cebLdu+lsk~0aoI{ih%ieNP^B{TwCb!!b$Yg$EB!iB)h<(9q0;*x%8vD%JhXg
zlgn(0T%gQbxRp4P1~6|#wwn*}{gDHk+Jw)l_kqv0*529UnYK93t$n=H20b(2Jek-l
zK!v}~YL^A+5r2RoN3#D{DhBmMO{ef-DZ(yeeMcL8Nq#cu=kxZ*e-b#^%qMZXX`pb^
z!7^D7PKbf11>Sz;Z=0`oYcuAVMCE5{VtxxoO|whL5kcNpSyXy+R^qx#vV&hHuGxC%
z{Z=xQnedf0sT-Bj!k7b{T<1T%rWacEq?w{6e{IF?c2-FHHa<CrIeXZP(oi<rO}l^J
zWrQ3}V_fmC2-eB&=1xlq7jO5@CPrdF|FyYKSIBxa##PRx0l|6m9C$K1j_bUFp%0lg
zc4;SR*dsyXhpBKYCtt(f%KhX4Yo~<P`<RsUJm!dmSO-K<5YGJC(KEP&Vo&KqC;d4l
zUYL1ZRM-VUMr?$tyW;WF6XZF0h?D)W=ptAp;wI%B<uzEa1y9L4qQCI5ZMaPcN;o5P
z4&+uR&Ow9UZ;8^f$Y2nOEYsdTz#EKW11DaMo8WQ0sR^@z5DofMz5#{($7G6k0za^g
zNrv8o9#`E)XqoL|`KOrJo*mcZq{fLWp4KPMX?=wDn#sq6r3JmnNt_I!dvs9m)ILVv
zp|JbNo@Dpe(|U(yOL^+3uR7l#tlPZZ9fNU*sdIZA-oXz&{PBK))A(+kg9|8beR}rJ
zL)=ChE}4IlV|I`4(>lDuG^g&O|CTT6msFc9v9Alke$(;!V|y%lgE%65BsItn6$;@D
zCLR0(dR-?Tf%jUMG<am|>2BcPY^zbcG}ZiWsU$F`3P@amrIQ{A+kqEr${soeuZ5Y8
z>yYfbSWO2jo34a&;dpEuh-y775!PEY@{37u=QicPxv{#tC5e&Sxl-eF2X>p!<VUu_
zPM@$-H;;O_`4pMa1z(!MmA6S(;*#dM=HnW@lW&gaE;6I)uw(|OTZ{L5@LF$=6BK%`
zl@xd!{5G*R1Y;lF=9xbqSNJzRPAgMm`MfI2!?eP3g8bEku;<9TG5de5WDQmAdN~0L
zpRftX@D52Q`=fz;1(I=9i-78vnb$2@yB9W3Vap?(+wYF+h1|6um@LCvg$z<z^`Y%9
zixO=)YucG+HDw0t^Y6w*8)u(Cl5|>LYU;IZE04mLgI;ymZK1eP>lW`CRHtDv5taue
zMR~RLe~tGIBNhy|VA5iDx7EZN=i8IoirT}uKwjS1U->|}(ddu%2j6l<V>CDyH3J3R
zEF)0rb1V6{@XA-xm(PP250E|B+O_X*HIuT4N#F)4l&rJ(*@^Ya7zqr7Xb6u(jcpxb
x)S{Dj2hZ48o2S{;6DkD$|9S2B&r-}V$Y3E7qNOzQ-u-yM@ahe{GF`_f{|CqT)e`^!

diff --git a/examples/implicit/Main.elm b/examples/implicit/Main.elm
index 6ccfd69..b1c9101 100644
--- a/examples/implicit/Main.elm
+++ b/examples/implicit/Main.elm
@@ -29,10 +29,7 @@ main =
 
 
 type alias Model =
-    { oauth :
-        { clientId : String
-        , redirectUri : Url
-        }
+    { redirectUri : Url
     , error : Maybe String
     , token : Maybe OAuth.Token
     , profile : Maybe Profile
@@ -54,6 +51,27 @@ profileDecoder =
         (Json.field "picture" Json.string)
 
 
+preModel : Int -> Model -> String
+preModel n model =
+    preRecord n
+        "Model"
+        [ ( "redirectUri", preString 30 <| Url.toString model.redirectUri )
+        , ( "error", preMaybe (preString 30) model.error )
+        , ( "token", preMaybe (\s -> preString 30 <| OAuth.showToken s) model.token )
+        , ( "profile", preMaybe (preProfile (n + 1)) model.profile )
+        ]
+
+
+preProfile : Int -> Profile -> String
+preProfile n profile =
+    preRecord n
+        "Profile"
+        [ ( "email", preString 30 profile.email )
+        , ( "name", preString 30 profile.name )
+        , ( "picture", preString 30 profile.picture )
+        ]
+
+
 
 -- Msg
 
@@ -62,10 +80,8 @@ type
     Msg
     -- No Operation, terminal case
     = NoOp
-      -- The 'clientId' input has changed
-    | ClientIdChanged String
-      -- The 'clientId' input has been submitted
-    | ClientIdSubmitted
+      -- The 'sign-in' button has been hit
+    | SignInRequested
       -- Got a response from the googleapis user info
     | GotUserInfo (Result Http.Error Profile)
 
@@ -78,7 +94,7 @@ init : () -> Url -> Key -> ( Model, Cmd Msg )
 init _ origin navKey =
     let
         model =
-            { oauth = { clientId = "", redirectUri = origin }
+            { redirectUri = origin
             , error = Nothing
             , token = Nothing
             , profile = Nothing
@@ -134,25 +150,16 @@ showParseErr oauthErr =
 
 
 update : Msg -> Model -> ( Model, Cmd Msg )
-update msg ({ oauth } as model) =
+update msg model =
     case msg of
         NoOp ->
             ( model, Cmd.none )
 
-        ClientIdChanged clientId ->
-            let
-                oauthBis =
-                    { oauth | clientId = clientId }
-            in
-            ( { model | oauth = oauthBis }
-            , Cmd.none
-            )
-
-        ClientIdSubmitted ->
+        SignInRequested ->
             ( model
             , OAuth.Implicit.authorize
-                { clientId = model.oauth.clientId
-                , redirectUri = model.oauth.redirectUri
+                { clientId = clientId
+                , redirectUri = model.redirectUri
                 , responseType = OAuth.Token
                 , scope = [ "email", "profile" ]
                 , state = Nothing
@@ -183,7 +190,7 @@ view model =
         content =
             case ( model.token, model.profile ) of
                 ( Nothing, Nothing ) ->
-                    viewForm model.oauth.clientId
+                    viewSignInButton
 
                 ( Just token, Nothing ) ->
                     viewFetching
@@ -192,25 +199,21 @@ view model =
                     viewProfile profile
     in
     { title = "Elm OAuth2 Example - Implicit Flow"
-    , body = [ viewBody content model.error ]
+    , body = [ viewBody model content ]
     }
 
 
-viewBody : Html Msg -> Maybe String -> Html Msg
-viewBody content error =
+viewBody : Model -> Html Msg -> Html Msg
+viewBody model content =
     div
         [ style "display" "flex"
         , style "flex-direction" "column"
         , style "align-items" "center"
-        , style "padding" "3em"
+        , style "justify-content" "center"
+        , style "height" "95vh"
+        , style "overflow" "hidden"
         ]
-        [ h2
-            [ style "display" "flex"
-            , style "font-family" "Roboto, Arial, sans-serif"
-            , style "color" "#141414"
-            ]
-            [ text "OAuth 2.0 Implicit Flow Example" ]
-        , case error of
+        [ case model.error of
             Nothing ->
                 div [ style "display" "none" ] []
 
@@ -227,46 +230,45 @@ viewBody content error =
                     , style "color" "#ffffff"
                     ]
                     [ text msg ]
-        , content
+        , div
+            [ style "display" "flex"
+            , style "align-items" "center"
+            , style "justify-content" "center"
+            , style "width" "70%"
+            ]
+            [ content
+            , pre [ style "padding" "2em" ] [ text (preModel 1 model) ]
+            ]
         ]
 
 
-viewForm : String -> Html Msg
-viewForm clientId =
-    Html.form
-        [ onSubmit ClientIdSubmitted
-        , style "flex-direction" "column"
-        ]
-        [ input
-            [ onInput ClientIdChanged
-            , type_ "text"
-            , placeholder "clientId"
-            , value clientId
-            , style "border" "none"
-            , style "border-bottom" "1px solid #757575"
-            , style "color" "#757575"
-            , style "font" "1.5em"
-            , style "font" "Roboto Arial"
-            , style "outline" "none"
-            , style "padding" "0.5em 1em"
-            , style "text-align" "center"
-            ]
-            []
-        , button
-            [ style "background" "url('/elm-oauth2/examples/images/google.png') 1em center no-repeat"
-            , style "background-size" "2em"
-            , style "border" "none"
-            , style "box-shadow" "rgba(0,0,0,0.25) 0px 2px 4px 0px"
-            , style "color" "#757575"
-            , style "font" "Roboto Arial"
-            , style "margin" "1em"
-            , style "outline" "none"
-            , style "padding" "1em 1em 1em 3em"
-            , style "text-align" "right"
-            , onClick ClientIdSubmitted
-            ]
-            [ text "Sign in" ]
+
+-- type alias Model =
+--     { redirectUri : Url
+--     , error : Maybe String
+--     , token : Maybe OAuth.Token
+--     , profile : Maybe Profile
+--     }
+
+
+viewSignInButton : Html Msg
+viewSignInButton =
+    button
+        [ style "background" "0 center no-repeat url('data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAgAAAAIACAYAAAD0eNT6AAAqIElEQVR42u3dCXydVZkw8JSCbCoKWVoECu3NbWmbm7QR7ECS26SA6PiNyzcdRwdFSFJwwUEd5xtnsSqo4Do6LoMbM1STtEmKogJNUoNjR/wcXD4FulFRBJGBLGVfCvnOm1YBB0uXm+Te9/z/v9/zq+BGe568z/Oec95zysoAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACAOK1euPGD58jXTy8rGpvnTAIAilxTtM9505bHL2ntPamlf+7KW1u6zWtp6L2xp771oaXvP51vaetYsbev9TnN774/DrzeFv7+1ub37tqXt3b9tae8eWdra/UD47zwW/v7Y72Jpa+/jLa29j4Z4cGlb9z27/vObW9p7ftLS2nNdc1vvleF/7/Lw9z4Z/t4/NLetbQ9//Wfhr19y2oo1x+VXDh5oZABgv4xNy79lzYxQhE9pbu95/XjBbe/9UijyA0vbe7f9YfEuhkgaiBC3hwbj+vDP2hUahoubW3vPaWnrbmxs751plgEAnuIVK646bPxNvq2nNcSnQvEcDEV+qNgK/P5H90iYXfjP0Mx8IZmtWNbavTR/9pUvkAEApF7+7MsPWdrac2oogn8bimFPeEPeEgrjE+kr9nsxczA+o9Hbk/yZNK/oaTr9rCsOlykAlLSGc1ZXtKzoeVV4s//o0rae74di90jMxX4PG4Idyb6DsPTxmZYVa5cnSyEyCYCidsq5X3/e0ra1r2xu6/nXnW/3CnphmoLuzcnmxubWta+xbABAEQib9c7tXRgK/ruTXffju+gV7AnfbBj+nH8QZgneG/56sc2FAEyK8Anec5pbe14eiv4Xw/r9rxXlKZ8duCP8elnyOWQyNjIUgIKpX3HZQWEN/6Vh9/qXwzfxwwpv0c4OjIavKFYl+y6SDZcyF4C9lhxss3RF97Lks7XkYBwFtsSagbae7WHsvrKsvee0nacdAsBuNJ+7eu74rv3W7rsU0pREW++d4dePnNa69kQZDsCTb/thunhZW+9fhULxXQUz7RFOKgzHGIfPC58r8wFiLfxhB39y+p51/SgbgXvDuH82yQE/CQARSNaDw5v+q0MR2KAIil2HD/1HcsaAvQIAKZScuR8e9G8JF+ncouiJZ4zW7luXtfW8M9xueISfGIAS19L6jarxa3Lt5Bd78QVBOIr4kp23GAJQUprb185JDusJu/kfVtTEPi4NJHc3XHZ62+oT/EQBFHvhP7dn1njhH79URhETBVkaeCw5BGrZOT2z/YQBFJmW81a/KNnV7Tx+MaE3FYZGIOwROM5PHMBUF/6wxh/Og/+kqX4xmUsD4bbHfz79/N5KP4EAk+z0s644PHzD/4FQ+B9QlMTULA303pfcSpjkop9IgAm2cuXKA8Ka7Fnh4pfbFSFRLDcSLmvvPjvJTT+hABMgPGhfsvMueEVHFF+Emwh/vLS151Q/qQAFkmzwG7/mVZERpdEIrHKGAMB+SK7kDZ/0vds6vyjJ/QFtvRcmOewnGWAvLDu3e1EypaqYiFJfFsiv6H6xn2iAZ7HkHasPbW7rvdRBPiI1mwRbex9Pbp30tQDAHxE+qWoOD8ytioZI6WzAL5Ic95MOsEty+1pyfK8iIeL4bLDn86ec+/Xn+ckHopZ8NpVcw6owiMhOE9zmk0EgSjt3+Pe+f3x9VEEQ0e4N6P3w8uVrnuOJAEQhuVWtpb37ekVAiKQR6P7Raef1VHsyACk2Ni289b9x5xnqHvxCPGVJ4P7kZ8MzAkjflP9b1jw3POg6POyF2E209V7hc0EgPVP+bWuzS9t6b/KAF2KP4sb8ip55nhxASVvatvaVS9t6tnuoC7F3Rwk3t3X/hScIUHLCzubpYU3zYg9zIfYrPpL8LHmiAKUx5f/WtUeFB9e1Ht5CFGRfwLozWlcf6ckCFLUwbbnAwT5CFHpJoPuW01rXnugJAxSlpSu6l1nvF2LCDg4aDXsDTvekAYpKuO3sTeEt5TEPaiEm9LyAHS1ta8/3xAGKwNi0UPw/4OEsxCTeLBiuzF65cuUBnj/AlDjzgqsPDlecrvJAFmIqrhfu+ap7BIBJlz/7yheE4j/oQSzElH4hMHDmBaue74kETE7xX3FVeXKBiQewEEXRBPxX8jPpyQRMqMb23pnJUaUevEIU1cmBG/Ntvcd4QgET4rQVa44LD5utHrhCFOVngr9qbl87x5MKKOy0f+vqTPKA8aAVoqibgNuTy7c8sYCCGD/dr633Tg9YIUpiT8CdTg0E9tuWusz8VS1//m0PViFKJ5a19bzT0wvYZ1sXzclszmV+s7kuO9bR/JrrPFiFKIXzAXr/ydML2Gfb6mcftymX/VVS/H8XmgAhFH8gxW5ePG9mKP5bn1r8NQFCKP5Aim2qz5Zvqsve+EzFXxMghOIPpNCttbNeEIr/j3ZX/DUBQij+QIpsyWQO3lxXPbgnxV8TIITiD6TAWFnZtFD8V+1N8dcEFNPhL90PLG3rvamlrftb4Rvwz4Wi8L5wXewF4fyG1zW3d5/R3HZlfXKQU3JU7Onn91YmFzktecfqQ8NNctOTK2XrV1x2UP7syw8JJz0ekX/LmhnLzumZnW+7sm5Za/fS8L/36vD/cV5SaJL/7XAf/VUt7T0/aWnvHvFnr/gDJW5zbfX796X4awIm+7z37t+EX68N8ZFwFewbWlrXnpwU9NDCTZuKvDmjdfWRy9p7Txr/Z2nr/VD45/tG+Gf7pbFS/IHSKP5v2p/irwmYsCNdR8Mb/DXNbT3/uKy957SGc1ZXlEpOLXvr2qOSf+bQFPz9+IxBa8/dxlTxB4rIpkXZZeGgn8cK0QBoAvY3wpR6W8+alra15y9rv7ImmZpP0SLTtORo2uT3Fn6vq0NTMGS8FX9gitycm7dwYy67vVDFXxOwL9FzQ1irv3hpa8+p+ZWDB8aSe8neg2TpIDQ8K5O77OWB4g9MVvE/ad5Rm+sytxa6+GsC9ig2hDfgt5927tePlok7tZy3+kWhGXpbKHCDYenjcTmi+AMTMRm7vGx6+NZ/3UQVf03AM+7S/2F4gL/jjDddeawM3L3G9t6ZYVbgwmR2RO4o/kABheJ/8UQXf03ArjX99u5PJ+v5sm7f5M/tXRiK38dj3kSo+AOFKv6vnKziH2sT0Nza873wOdxZyXf2Mq4wzrzg6oPDp4avT5ZPFH+AvRQ2/WUnYtOfJiBM8bf37gi/diQH7si0iZX8GYclgitaWnsfVfwBnsWN8+c/NxT/m6ai+Ke7Cei+N5miDifoHSfLJldyquHO5YHe+xR/gGeQHPO7qTbbMZXFP3VNwM6ic1HDm7/1Qhk2tZLTCJOxWNrWs13xB3iKcMb/G4uh+KehCUjO3A/f7V+aX3FVucwqLkkzFvYJfDAZI8UfiN6WxZk54Xv/+4qpASjFJmDnGn/3p1tav1Elq4pbcpnRrkuLdij+QJQG8/kDw9T/9cVW/EutCUjO40+OsZVRJdYIrOiZF2YEvqn4A9EJl/y8r1iLf4k0AZvCJ30vl0mlbdmK3jOXtndvVvyBKGysm3vKxrrs48XeABRpE/BQ84qev6tfcdlBMikdwt0Dz0luJkzGVvEHUmtb/ewjJvKc/zQ3AclZ9Ked11Mti9KpuX3tnObW3n7FH0ilzbWZL5ZS8S+GJiBcQDMabqZrTa6tlUFpNzYtGeup/GxQ8QcKbmPt3OZSLP5T2QSE9eE+N/PFZ/wgoSmYDVD8gYK7bckxh27KZbeWcgMwmU1A+EzskeSGvpUrVx4ge+KUjH1yNXM4O+BhxR8oWeHAn0tKvfhPYhNwY/N5vbWyhkS4vCnX3N59s+IPlJytNXMWh7P+d6SlAZjQJqCt98tu6uMPvWLFVYeFIn254g+UjOTAn/DJ34/TVPwnogkYn/JvW9suY/jjdm0QLOCSgOIPTJhw4M+701j8C9sEdP+6pXXtybKFPbGsvfek8ZxR/IEiLv4vChv/HkhzA7DfTUBb73dPP7+3UrawN5J7H0L+bFD8gWJtAK5Ie/HfnyYgPIRXnXnB1QfLFPZFkjtJDin+QHEV/1z1S2Ip/vvUBLT1fMDBPuy/sC+gvee9ij9QHI+ksrIDwsa/H8TWAOxRE9Da/Vg44OUcWUIhhc8Ez322K4YVf2DChWt+z4qx+O9BExAue1n7MhnCRFjWtvYVf+xCIcUfmHA/zeUOD2//t8fcADxTExDezu5f1tq9VIYwoTMBK3qawhcC9yr+wKQLG/8+EHvx/8MmILnMJ5ztvkR2MBmST0pDEzCi+AOTZtvCE6pi+Oxvb2JVy59/e9m53YtkB5PaBLT3Lg7F/2/8SQCT8/ZfV/0JRf/JCEshI1tyGcUfgBQX/3DoTyh4Dyv8v4vM/VsWZ0z7A5DyBiBX/VlFf9ebf232oY21c5fKCgBS7aZFJ87anMs8qviHyGUeC0shL5cVAKT/7b8280XFf2dsqc045AeA9Avr3HM25rI7FP8Q4RNIGQGAt/+oonpVOALZ2f4ApN+NJ82fEXa7P2LTX/a7WzIZt/oBEIdNddmLfOuf/fUtudmVsgGAKNxRP/Ow8PY/FPm3/o+Edf+TZQMAMb39v8Wmv+p2mQBANMaWl00P6963RF78vyQTAIhKKH6vjnrdP5e96bYlxxwqEwCIqwGoy2yIet2/rrpWFgAQlZtz8xbG/Pa/qTb7DlkAQHRCAfxUtMU/l+0Lh/0cIAsAiMqt+VmHhOnv4UjX/Uc3Lpp7tCwAIDrhitu/ivbtvy7bJgMAiLQByH430nP+v+OcfwDiLP41c+dGes7/QzfVnVgtAwCIUtj899FIp/7/zugDEKXBfP7AcOnNXRF+87/phvr6g2QAAHG+/S/KLot07f/lRh+AeBuAuuxlEZ71f42RByBayRT45lzmnsi++d+xeVH1iUYfgGhtzM19aYTH/X7ayAMQtbAO/uXIjvt9YNvCE6qMPADRunH+/OeE3f8jkW38u9TIAxD72//LI/vs775N9dlyIw9A3A1AbeaLkR36c5FRByBqydn3Yfr/1xG9/d/7s5qaFxp5AKJ2c27ewsim/z9u1AGIXjgI590xffe/rX72cUYdAA1AuAI3ou/+O4w4ANHbOHfu88Lpf49GMwOweF69UQcgemE3/CsjWvv/nhEHgJ0NwL9GNP1/lhEHgGBzrnpLFFP/4ZTD25Ycc6gRByB6t+RmV7r0BwAiE4riq6LZ/Fczt8aIA0DZ+Pr/R6JoAHKZHxptANglrP//ZyTT/+8w2gAQ3JqfdUj4LO6RGBqArQvmHGvEAaBsfP3/1Ei+/d9gtAHgyQbgb+NoAKrfbrQB4MkGoCeK3f+L5h5ttAFglygOAKqtvsFIA8Aud9TPPCycjPdE6nf/12UvNtpMlpqupjGRouhoeiJ3xemHy2xSJRTGkyL5/O9Uo40GQOx75JfIbNLWALTGcPb/YD5/oNFGAyD2OTqbVshs0tUA1GY/FcHu/zVGGg2A2M/4F5lNqoTiOJj2BmDLosz5RhoNgNi/fQAN35HZpMZYWdm0cDjOkMt/QAMgnrUBuFNmkxo3njR/RuqLfy47GhqdA4w2GgCxv1G/5rQjZDepsLFu7ikRfP9/jZFGAyAKEQu6mk6S3aTClrrM6yNoAP7RSKMBEAWJ1fnXyW5SIRTHf4jgC4DTjDQaAFGYaPRCQWoagC+l/guAukyFkUYDIApzFkDjl2U3KWkAMgOpbgBymd8YZTQAwqeA8AfCCXnbUj79f61RRgMgCrgEcIvspuSNLS+bHt6QH0v5BUAfMdJoAEQBZwAeDgeoTJPhlLStC+Ycm/oLgBZl32Ck0QCIgp4F8LV8uQynpEVxC2Bt9clGGg2AKOxZAKfWynBKvQF4WdobgFtysyuNNBoAUcjIdTW+VIZT2g1AbfasVE//57IPJHcdGGk0AKKgMwCdeUuLlHwDcGHK7wC4ySijARCFjoWdTe+U4ZT6EsBFqW4A6rLfMspoAETBG4Cuxg/KcEp9BuDzKd8A+DmjjAZATEAD4NlCaQuH5KxJeQPwPqOMBkAUfgmgsUOGU+oNwHdS3QAsqr7AKKMBEIW/D6Dh2zKckhbWyH+c8mOAXduJBkBMwGmATRtkOKXdAIRd8qm+BbA2c4ZRRgMgJqAB+KkMp6SF7+S3pvorgMXz6o0yGgAxAfcBbJXhlPoSwG1pbgC2LpqTMcpoAETBDwLqaLxdhlPaMwB12d+megmgJnOMUUYDIAr/GWDD3TKcUp8BGHEPAGgAxF7HdhlOac8AhLPy09wA3Fo76wVGGQ2AKPwSQNODMpyStjmXeSzNDcBtS4451CijARAT8BXAIzKckhVuyTsg7VcBjy0vm26k0QCIws8ANDwmwyndBiAUx9Q3AKHJMdJoAIQGAJ4+AzAt7Q3ADfX1BxlpNACi4A1AV9OjMpySFr4CeDzVmwDzsw4xymgAROGj4SEZTkkLmwAfTXMDsK1+9hFGGQ2AmIBNgPfKcEp7BiCXfTDNDcCNJ82fYZTRAIgJWAIYluGU+gzAPaneB1BTPdsoowEQExC/keGU9gxAyu8C2FxbXWeU0QCICTgI6BcynNKeAajLbE71bYC1c5caZTQAYgI+A/y5DKfUZwB+kvIZgFcbZTQAYgJuA7xehlPSwl0A16W8ATjPKKMBEBMQ62Q4pb4EcGWaG4Bw3fE/GWU0AKLw0bhGhlPaMwB12ctTPgPwOaOMBkAU/jPAxstkOCU+A1D9yZTPAFxllNEAiAmYAbhEhlPaDUBt9T+k+iuAsMnRKKMBEIWOhV1N75LhlHoD0J7uC4GqndaFBkAUPHJdTW+U4ZS0jYvm/lnabwS8cf78I400GgBR0AagI3+mDKe0ZwBy1S9JewMQ9gGcZKTRAIhCxvw1+ToZTkkLt+Udl/oGYFH2DUYaDYAo6B6AjpYqGU5JG8znDwwb5R5PdQNQm/2QkUYDIAp4E+CjZSvLDpDhlLzQANye8rMAvmGU0QCIAjYA22Q3qRDekK9PdQOQq/6lUUYDIAoWnU3XyW5SIRwH3OVLANAAiD1c/+9s+jfZTVpmAD6Y9gYgnAdwmpFGAyAK0wA0umOEdNhSmzknggbg7400GgBRkFidf53sJh1LADXVjRGcBeBOADQAokCfAOZfLLtJhZsXz5uZ+hmAXObusbKyaUYbDYDY36hfc9oRsptUSApj+BRwJPVNwKLqE402k9oAdDbcE1V0NN2b+gago+FOmU26lgFy1f+Z9gZgy6LM+UYaJrLhafrr9M8ANPQZadLVANRmvhjBRsDVRhomzsKuhm9EcA3wJ4w0qRI+Bbww/Q1AZmhsedl0ow2FV39Z/UExLAEsXN10rtEmVTbWzl2a/gbAzYAwUWq6Gpt8AQAl6NbaWS+IpAFYabRhQhqAS1J/B0BHw45Zl+cPMdqkbxagLrstgs8B/8tIQ+GF4vjz1DcAnQ0/M9KkUtgH0BPDLEC4HfBFRhsKWPw7m+fEMf3f+O9Gm7Q2AH8bSQPwNqMNhWwAGv8mikOAOhrfarRJpS11mXwUDUBd9aDRhsIJt+P9XxsAoYT9NJc7POwDeDztDUDye0yOPzbisP9yqxtPiOPtv+Hh+WvmP8eIk1qhOP4kiq8BwrkHRhsK8Pbf1fieGBqABV0N/2G0SbVwWM5nItkHcIPRhv00VjYtHP5zUySXAH3YgJNq4c34L+LYB5Aduzk3b6ERh/14+w9r4vFcAdz4p0acVLvxpPkzYmkAwmzHx4047EcD0Nn42UgagMdrr8y/wIiTeqEwbo6iAchl7t6SyRxsxGHv1V9Vf1g4/Gc0jgag0QFixCEsA3w+llmA8Onj64047MPbf1f+nGim/zsbLzXixDEDkKt+TUTLABuMOOylZPNfZ9MNsTQAua7Glxp0opBcDBTDeQC/Pxdg8bx6ow57Lpz8d0osxb+mq+GhJauXHGrUiUZoAH4QzSxAbfUVRhz2XFgTXxNPA9C0zogTleTa3GgagFzm0S01mWOMOuxB8f9aw+xkV3w86/9N7zTqRGVrzZzF8ewDGD8Z8GNGHZ5dRJ/+7Vz/72zIGnWiMlZWNi28Gd8R0WbA+26cP/9IIw+7Kf4dLVXJmngsxX9BV9Nmo06Uwj6AL0Q1C1CXvciowx8XiuJHY3r7D3sdHBZGnMK1uS+PqQHYmMtu/1lNzQuNPDzz2/+CjqYHopr+X5NvMPJEKTklLymKke0F+KCRh2doALqaPhHX23/Db5evWT7dyBPzLMBXo2oActkHkvsQjDw8KXz3f2xNR8PDMTUAC7oaLzPyRC28Eb8qpgZg52eB1Z818vCkms7GL8f19h+is2GZkSdqt+ZnHRLbMkD4/e7YVJ+dZ/QhWftvyNV0ND1h+h9inAWoy34ltlmA8Hv+ppEnesmZ/10NfbG9/Yf9Dp8x+FA2vg/gtOiWAcZnAua6AISohan/V0Y39T8e+SVGH5KXgOVl08N5+XfG1wRkNofDgZ4jA4hR/VX1hy3oarg1vrf/hi3JzIcMgF3CZsCPxjgLEGY//t7oE6NwBv5FMb79h9/3e40+PMWWusz8KJcBarMPbVmcmSMDiMmCzqYTwzG4j0bXAITNjrWd+eNlAPyBqK4IfvrZAH3J3QgygCisLDsgXPjzvRjf/hd0NPZLAHgGYR/AijiXAca/CmiVAcSgpqPxrXFu/AtH/3Y1/KUMgGeaAZg793nJrXlxfhGQ3b6lJnOMLCDNFnQ2z4ntvP+nHPxzz6zL84fIAvjjswCfi3UWIDQB/WEp4ABZQBolB9+ENfANsb79h2//PyILYHezADVza2JtAHZ9FfB2WUAaLexqfE+sxX98/T/MfsgCeLZZgLrM96KdBajLPpw0QbKANKld3Xjygo6Gx6It/l2NV8sC2ANbFmX+d8yzAGEp4OY76mceJhNIg8yqk59f09V4S8xv/7muRqd+wp4YzOcPDDfm/TLmJiC5H0EmUPLGz/pv6oq5+Ie7DjY6+Q/2QlgLf1fcewF8GkjpW9iVvyDu4h82/61uPF8mwF7YVj/7iNiuCX6m/QChCThJNlCKcmvyDTGv++88+Kfpv5esXnKobIC9nwW4NPZZgNAE/HrbwhOqZAOlpGZV/phw1O9d0b/9O/cf9s3Ni+fNDF8EPBJ7ExD+DDZsyWQOlhGUxJv/FacfHt58fxR78Q83Hd4/b+2yo2QE7KMwBX6ZBmD8fIBV7gug6I2f89/UE3vx33Xy38ckBOyHzTXVs8NegB0agPFNgaYTKWrhkp9LFf/k1r+Gh+etapwpI2B/m4C66i9rAH53RsDcc2UERVr836b4/27tv/GzMgLMAhT6kKAdW3KZV8gKiklNV355cte94p+8/Tc9kmyClBVQIMnBOBqAXU1AbfahzYuqm2QFRfHm39F0etjx/6ji//v4F1kBBXTTohNn+SLgaV8G3OuMAKbazm/9mx5U9H//3f+DizpOOVpmQKFnAWqzn1L4n3ZGwMjWmjmLZQZTIUz7LwnT3fcq/E+LD8sMmAC35GZXhjff+xX/J+OX5xx/zchAuSaASTW0vuKUnm/OuVrBf+p1vw0jNV9reKHsgImaBajLrlT4dxX/s0+4bmSgcmyor3JktH+G5QAmxfD68qbQdN6f5F7vt04YVPx37fzvanqX7IAJ9NNc7vDNucwdiv/O4v/76Ku8N3kwyxAm9M2/v+LMkb7yB5+ae5qA8VP/bs1cfabTOmGibanNnKP4P6X474rhvvKHhvurfCLIhBjtr3ptmG167JlyL/YmYEFn42tlCEyCseVl08MGuJ8o/v8zhgYqd4wMVLlGmIIa7i9/eyj+T+wu92JtAsKhP98rG3NMN0yaTblsg+K/m+iveN+YhxL722yHs/2H+ys/uqd5F10TEA4/ynU0LZIpMMnCEcFfVfx3FxVfvXVw1iEyhX1x57qqw4f6y9fubd7F1ASEt/8vyBSYAhsXzT06fBZ4n+K/uyj//l2DFTNkC3tj6Nqjjx3qr7xhX/Muiiago2nIdb8whcJSwDsV/2eJvsrbRweqTpYt7Inka5KhgfK79jfvUt8ErM63yxaYQoP5/IFp3RBYkOL/+82BFY+MDlSeZ18Af0ySGyFXLvxjO/01AU898rfx+rKwP0LWwBTbXFt9cmgCnlD89yj+PVnblTU81T1XH/n84b7K7onIubQ1AQs6Gh7LdeUXyhooEuGegE8r/nsW4UG/aWRdRZ2sIZEsD4Up/19MZM71fjs9TcDCrsaLZQ0UkRvnz39u2BB4q+K/50sCyXTvmGnMaI2tKZs+3F/xnkJO+ae/CWjYOOvyvC9roOhmARZllyn+e9kI9FesH+6feZzsieytv79y9kh/5YbJzreSbgLCN/8LVzf9ieyBYm0C6rKXKf57/ZXAvaEgrLBBMIK3/vGDfSouCJ+HPjBV+Va6TUDjx2UQFLGNc+c+LywF/ELx34fZgL6K72zvL8/KonS6Z2DG/Kl4609HE9CwccnqJYfKIihym2uqG0vlq4BiKf5P7g0of3h4oPK9ThBMjzuumnlYOBr64rDW/2gx5VqpNAHJrv+FHfkXyyQolSagrvoSxX9/ZgMqb3GzYGkb/66/r+I14UjoXxVrnpVCE7Cws+m9sglKyJZM5uAwC/BjxX+/45qh9VULZFRpST7zTDZ4lkKOFXUT0NG0IT+YP1BGQYm5OTcvG/YD3K/47++yQOXjwwMVl93dd9TRsqq47TrD/yvPdnWvJmCPYnttZ/54WQUlKiwFnK34F+prgfIHwyFCl27vP9oFKEXmvnVVlaFJ+0Syh6NU86vnW7OvK6q1/87G18osKGFjZWXTQhOwSvEv6GeD94VfP3zv4MxyGTbFhX+gsip81vexqfysL41NQDjt73OyC1IgOSVwYy57k+Jf6BgvOp8aXj9jliybXCPrqk4If/afHe4rfyhteTXlTUBn40+c9gdpWgpYVH3iVO0HSGfxf9oegR1ht3mnK4cnXljf/5Ph/so143/mKc6pqWoCFnQ2jNR8rWG2TIOU2ZTLvlbxn/BZgevDlPQbb/v+MQ5NKZDx7/jXV5wT1vh/GFMuTUUTEBoAn75CapuA2uxHFf/JuGOgcjj8+umR/vJFsm7vJd/wj/Yd9eJkmj/s6B+JNY8mtwlofL/MgxQbzOcPDDMBfYr/JEZ/5U/DSXTvTj5Rk4G7NzJYdXyYQfm7MJPyc7kzeU3Agq6mr5e5GRPSL2wKPDIcErRN8Z+SZmBDiHfYOPiUor9zQ9+7kuUTOTIVTUDDzZlVJz9fJkIkkk2B4cuAUcV/ymcGPji0ruLUscGyaE5bG7uh7KDhgfLG5FNKb/pT3AR0NA0t6Gye44kIkdlSmzkjNAE7FP+iiO1DfeVXJlfVDq+vqB1L0XTs2Jqy6cleiHDJ0l+HhucbyfXLxnvqm4DxS35WN+Q9CSFSm+qyb1b8i/IyomTj2zWhaK4MZ9qfmRx4Uyo5dddgxYxwIt/LQrF/f/hkb134fYwa0+JrAhZ25c/xBARNwEcU/5KI3+xsCio+Ht6ozw2zBQ1JsU12zE/6W334//zva8pn7prKb0uO4U2KfTiY57fGqQSagM7G93nyAclxwQeEzwM7FP+SPXvg/nDl7c1htuDa0BR8Mbx5X5wsJQwNVP3laF/FS7d/p+old1971Lzh/pnHJccX373hqOcl39aPrZn/nCeuzhyc/Ovk79179YyK5D9zT9+ME5P/TjLzMLS+8nXD/eVvT/YqDPdVfGnXG/3GtBy9G2MTEHb8X142BU0jUKSS64PDSYHrFX8hUtwEdDZ8u/6y+oM88YCnNwEnZ56/ubb6BsVfiPQ1AQs6Gq/PXXH64Z50wDM3AXWZis21mY2KvxDpaQIWdjXdOG/tMtdYA7u3dcGcY8Npgb9S/IVIQxPQeMu8VY0zPdmAPZsJWJyZszmXuUPxF6Kkm4Dbajvzx3uiAXtlY83cuWFPwJ2KvxCl1wSEaf875q/OZzzJgH2bCajLzP9V6/Hf8mAVonRi9TfnfLNm9SlzPcGA/XLPwIz54fjWOz1YhSiJuGP7+qMUf6AwtveXZ0MTcLuHqxDFHBW/Gl1f4XIfoLCSB0vygPGQFaII748YKN82Mlh1vCcVMDHLAYNHHrPzKFgPXCGK6Djonyd3M3hCARMqOU9+qL/yBg9dIYqi+F8/eu0xR3oyAZMzE3D1kc8PU44DHr5CTGlcc+e6Ksf7ApMruU0u7An4qoewEFOw5t9f+ZWxG8pc7ANMUROwsuyA4b7KSz2QhZjE6K94/5grfYFiMDpQed7QQOUOD2chJvCtv6/y0ZH1Fed44gDF1gScHh5Sox7UQkzEZ34VQ8N95XlPGqAo3dM348TwlnKLB7YQhYuwzLZpe195tScMUNwzAd874oXDA5XXenALUZDT/b453P/CIzxZgJIwtqZs+nB/5SUe3kLs52a/sNHWEwUovdmA9RXLwx0C93mYC7FXMRoa6Fd6ggAlLbmZbKSv/EYPdSH2ZLNf5U9c6AOkRnJaWXi4/bsHvBC72ezXX/HF275/zKGeGEDqDK+veIMlASH+R2wf7a96rScEkO4lgfA5k8uEhHjyMp+RdVUneDIAUdh5j0Dlh8J65+MKgIh0rX9H+Fx2pfP8gSgNras4NdwquE1BEJEV/y2jA1UnewIAUbt7w1HPG+kv/7zCICI4y/+J8OunXeEL8BQj66tawmzALxQKkcod/gOVm8Mu/wY/6QDPYPxzwf6Kf7Y3QKRqrT9cme3zPoA9MNp31IvDdOmPFBBR2t/1l/8gvPnn/EQD7IWxwbIDw0P0wnBuwL2KiSixtf6Rob6KNzvHH2A//Pc15TOdIihKZZNfcprfvVfPqPCTC1AgQ+srTrEsIIr5QJ9k6cpPKsBELAuEKdXwhvXGsCxwu4IjiiL6yn85NFD1l2NjZdP8hAJMsDuumnlYuC71n9wrIKbyyt6RgYr/c+vgrEP8RAJMsmStdXig4hPh/ICHFSQxSW/8D4bm85LRa4850k8gwBQbuvboY5PNV2GPwGOKlJigDX6Phl8/d3ffUUf7iQMoMsmtamFG4AsaAVG4g3wqHgm/fjZpMv2EARR7IzBYdXxyv4ClAbE/U/0j/ZX/ovADlKD7BiqrwtHCH9y5YUtRE3vwxt9fORxy5v2+5QdIgXuuPvL54UjWv3bZkNhN4d8alo/edtdgxXP9xACkzNiasunhYf+qENcpemJn4a9YPzxQ9b8c2wsQiaH1VQuSu9lDbFcIIzyrv7/ik3dfe9Q8PwkAkdp5BXH5uWHD1wbFMfVxXfhc9GxX8wLwNNv7y7OhSHzIUcNpiopfhbhodH3FHBkOwG6N3znQV57fdabAiCJaat/ul9+THNoT3vYbrO0DsE+euDpz8HB/1SvCLvHLxz8RU2CLdF2//O7x0yD7K84cu6HsIJkLQOFmBkJhGR2oPD05GS65BU7hnfI3/W07N3JWNY8Nlh0oQwGY+GYgXP86tK5qYXjrfE/YQPhdxw9PzrG8Q30V3xlZX/E3yQ5+V/ACMOWSA2TCNPSfhkL1qZGB8p8r2AX5XO+JMNPy/8ZvfAxT+8kXGzINgKK2vf/oo5JDh5LiFeKHu26TU9if5Q1/uL/8B2FW5WPJ4Tyj3zvihTIJgJJ26+CsQ8Imwj8JywXvGOmr6Bzuq9w0/oYbbbGvfDx8nndzOHe/I/z1hff0VS5JNlzKFABSb3zZYH3FKWFd+82hMfhMsr4dNrbdlb6b9SrvDL+vgWTDXthEeV5S7E3nA8AfSJYPRgeqTg4zBK8Plxi9NzQHVySn2CW73otxKWHn5rzKW8Kvg+Gv/224v/Ifh9ZXvm60f8ZJpvEBoACSg23CzMGMcHzxotG+ipeG9fI3Jrviw5LCpcN9Ff8aGobVoQCvS9bSw2bEnyWFORTlO3YeaFR+fzjg6KHffbGQLEEk/zr5e8m/t+vQozuSm/GS/+74evxA5bVhD0PX+P92f+Ul4d9/1/D6ijeEk/XOGFlXUZdcueywHQAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAACK0f8HUiF5PDPTqGkAAAAASUVORK5CYII=')"
+        , style "background-size" "100px"
+        , style "border" "none"
+        , style "box-shadow" "rgba(0,0,0,0.25) 0px 2px 4px 0px"
+        , style "color" "#757575"
+        , style "font" "24px Roboto, Arial"
+        , style "outline" "none"
+        , style "cursor" "pointer"
+        , style "height" "100px"
+        , style "width" "200px"
+        , style "text-align" "right"
+        , style "padding" "0 0.5em"
+        , onClick SignInRequested
         ]
+        [ text "Sign in" ]
 
 
 viewFetching : Html Msg
@@ -288,17 +290,76 @@ viewProfile profile =
         ]
         [ img
             [ src profile.picture
-            , style "height" "150px"
-            , style "margin" "1em"
-            , style "width" "150px"
+            , style "height" "25vh"
+            , style "width" "25vh"
+            , style "border-radius" "50%"
+            , style "box-shadow" "rgba(0,0,0,0.25) 0 0 4px 2px"
             ]
             []
-        , text <| profile.name ++ " <" ++ profile.email ++ ">"
+        , div
+            [ style "margin" "2em"
+            , style "font" "24px Roboto, Arial"
+            , style "color" "#757575"
+            ]
+            [ text <| profile.name ]
         ]
 
 
 
+-- Formatting Helpers
+
+
+preString : Int -> String -> String
+preString maxSize str =
+    if String.length str > maxSize then
+        String.left maxSize str ++ "..."
+
+    else
+        str
+
+
+preRecord : Int -> String -> List ( String, String ) -> String
+preRecord n name fields =
+    let
+        preField ( k, v ) =
+            k ++ " = " ++ v
+
+        padded s =
+            "\n" ++ String.repeat (n * 2) " " ++ s
+    in
+    case fields of
+        [] ->
+            name
+
+        [ fst ] ->
+            name ++ " = { " ++ preField fst ++ " }"
+
+        fst :: rest ->
+            String.concat
+                [ name ++ " =" ++ padded "{ " ++ preField fst ++ padded ", "
+                , String.join (padded ", ") (List.map preField rest)
+                , padded "}"
+                ]
+
+
+preMaybe : (a -> String) -> Maybe a -> String
+preMaybe pre m =
+    case m of
+        Nothing ->
+            "Nothing"
+
+        Just a ->
+            "Just (" ++ pre a ++ ")"
+
+
+
 -- Constants / Google APIs endpoints
+-- Demo clientId, configured to target the github repository's gh-pages only
+
+
+clientId : String
+clientId =
+    "909608474358-sucp6e4js3nvfkfnab5t69qoelampt3t.apps.googleusercontent.com"
 
 
 authorizationEndpoint : Url
diff --git a/examples/src b/examples/src
new file mode 120000
index 0000000..5cd551c
--- /dev/null
+++ b/examples/src
@@ -0,0 +1 @@
+../src
\ No newline at end of file