(***********************************************************************

                    Mathematica-Compatible Notebook

This notebook can be used on any computer system with Mathematica 4.0,
MathReader 4.0, or any compatible application. The data for the notebook 
starts with the line containing stars above.

To get the notebook into a Mathematica-compatible application, do one of 
the following:

* Save the data starting with the line of stars above into a file
  with a name ending in .nb, then open the file inside the application;

* Copy the data starting with the line of stars above to the
  clipboard, then use the Paste menu command inside the application.

Data for notebooks contains only printable 7-bit ASCII and can be
sent directly in email or through ftp in text mode.  Newlines can be
CR, LF or CRLF (Unix, Macintosh or MS-DOS style).

NOTE: If you modify the data for this notebook not in a Mathematica-
compatible application, you must delete the line below containing the 
word CacheID, otherwise Mathematica-compatible applications may try to 
use invalid cache data.

For more information on notebooks and Mathematica-compatible 
applications, contact Wolfram Research:
  web: http://www.wolfram.com
  email: info@wolfram.com
  phone: +1-217-398-0700 (U.S.)

Notebook reader applications are available free of charge from 
Wolfram Research.
***********************************************************************)

(*CacheID: 232*)


(*NotebookFileLineBreakTest
NotebookFileLineBreakTest*)
(*NotebookOptionsPosition[    135606,       3507]*)
(*NotebookOutlinePosition[    136277,       3531]*)
(*  CellTagsIndexPosition[    136233,       3527]*)
(*WindowFrame->Normal*)



Notebook[{
Cell[GraphicsData["Bitmap", "\<\
CF5dJ6E]HGAYHf4PAg9QL6QYHg<PAVmbKF5d0`40005N000061000`40O003h00OogooGgoo003oOomO
Ool00?mooemoo`00ogooGgoo000026jjL[aZ_7:kJ[ab_6ZkL[`3K[/01g:lK[a^^fjkK[a^^g:l00=^
^`09K[ab_6jlK[aZ_7;LK[a^^fjl009^^`03L[aZ_7:k009^^`05K[ab_6kKK[a^^`03K[`026jkK[a^
^fjlK]]^^fjlK[/2K[`01VjkL[a^^fjlK[]b_09^^`04K]ab^fZlL[`2K[/2K[`01fjjL]aZ_6jlK[]b
_6jk009^_009K[]b_6jlK[]^g6jkJ[]^_6jk009^_0A^^`08L[a^_6ZkK[a^^fkLK[ab_09^^`0;K]a^
_6kKL[]Z_6kKK[]^_7;LK[a^^`02K[`02FjkK]a^_6jkK[aZ_7:kK]a^_002K[/00fjlL[a^_002K[/0
1FkLL[a^^fjlL_d00W;l00YboGLML_ac7G<LLaeg77<lMaec?0=g?@08Mcig?GLmMeig?GMMNeigG@9g
GP0ENgmkGG]NMgikGG]oMgekOW]NNgikWW]nNeikWW]nNiikOg^NOgigWWnN009kWP0;Ogik_WnNNkik
WWnONiio_gnnNimoW`02Okl02G^nOkmo_gnoOmmo_g^nOkmog`02Okl2Oml2Okl2Oml2Okl6Oml01Woo
OmmoggooOmmoo`9og`03Oomoggoo009oo`03Ommoogoo06eoo`0000=44dPCB1<00TPC00I44dPCA1=8
4dPDA1<2B1<00d@CB1=84`02A1<2B1<014@CB1=44dPB0TPC01Q44dPBB1A84d@CB1=44dPCA1A84d@C
B1=44dPCA1=84dPBA1=84dPDB1=44dPCB1@2B1<01d@CB1=44dPCA1=44TPC00944`984`09A1=84dPC
A1=854PCA1=84d@C00=84`07A1984d@CB1=44dPCA1<00TPC00E44dPCB1=84d@C00984`04A1=84d@C
A1<2B1<01D@CB1<l4C`A@1000S`A00A043`A?150408l4@04@14l4C`@@142?1403D0@?14l4D0A?10l
4D0A?10l4D0A?10l4D0B00904@07@1944T@CA19@54`ED9@00U1e00=@]EBeD;H00UCf0UDG01II5eEG
FCMM>5UgFEMMUefHGGQM^5fgGKUQ^5gHHMQUf67IHOQQnF8IIQUR6@9V6@0OISYVFVHjISYZFVIjJUYZ
NVIjJWYZNfZJKY]ZNVjKJY]Z^fjKJY]^^fjlK]]^_6jkK[a^nfkLL[]^g7;lL]`00Vkl02YboG;lLaeb
o7<MMaac7G<LLaec?7<nMcag?G<lMeegGWMLMeig?G]NNeegGWMmMeikGG]nNgmgWG]nNeigWWmnNimk
OW^oNgio_W^nOimkggnONmh2Okl01GoOOkmoogoOOkl00WoO00=oogoOOml0G7oo00003U3fE?ED]UCg
E=EDmUBeE?I@mUCeE?I@]ECfD?H2E?H01UBfE?ED]UCgE?I@]@=DmP0@E;EDee3fE;IDmECfD?IDmUBe
E?IDmE3fE?ED]UCGE;D2E?H03eBgE?E@]UCeE?MDmE3FE?E@mUBfE?EDme3eE;IDm`02E?H04eCeE=MD
mECFD?ID]UCfE?EDmUBeE?IHmeCEE?ED]UCgD?IDmUCe009DmP08D?ID]ECfE=IDmeCeD;IDm@=DmP0B
E;MDmECfE?EDmUCFE?ID]UCFD?MLdEBfE?ID]U2eE;I@mUBf0UBe01m@mUBfD;ED]UCfE;ED]U2eE?ID
]U3eE;I@mUBeD;ID]eCfE?EDmeTGEAEE5eTgFEMEEUUHGGMMF5fGGIQQ^002GKP0667HIMQMn6GIHOUR
66GiHQYV6F8IJUYV>FHJJUYVFVYJJW]VFVZJJU]VVfYjKW]^V`9ZV`0?K[]ZVfjkKY]^ffjkK[a^fg:l
K]]bo6kLL]]boFkl00Abo00<Laec77;lLaac7GLLLaec77LmLceg7G<m1GLm0WMM00agGWLmNeigGG]N
NeegGgMMNgigOW]mNel2Ngh04W^NNgmkWW^ONgik_WnONiioWW^NNkmoWg_NOimoggnNOmmk_`=o_`9o
g`03OkmoogoO00=ogf9oo`0000AD]E2fD9A<509<5@08E;ID]E1fD7ED]EBfC1A@5@9<500aC1E@5D`D
D7ED]E2fD1A<5E0DD7E@54`EC1A@5EAeE;I@MD`ED1A<5E0DD;I@U4`DC1E<551eD7A<5E0DC1E@54`E
D1A@5E1eC1A@5E1eE;I@]50EE;EDMU0EC3A<5E0DC1D00T`D00=D]U2eD1D00T`D011@5E1fC1A@54`E
D1A@]UBfD7E@54`EC1A@UEBeE;I<5@=<500XD9A@MD`ED1A@MUBeD9E<550EC1A@MU3GE?E@]E2fE;I@
mE2fE;E@]UCfE;E@]UCFD?E@]UBfE;E@mUBeE;I@eUBeE;I@mUBeE?I@]ESfE=D2EAL07UUFFAMI=Udh
FGIIN5egFIQIUefGHKUM]f6iGKQQfF7HHOUUnF8HIOUR6FGjHQUVFVHiIUYZ>VHjIUYZNP9ZFP0GJW]Z
VfZJKWYZVfjkJY]^VVjkJY]b_6ZKK]]^_6kKK]a^^g;LK]abfg;MK_abg004L_`00g<ML_ac7002Lad0
37LMLaag?G<LMcec?GLmLceg?W<lMaigGP=gG@06NeicOG]nNeegOgMN0W]n00=gOG]nNgh00g]n00ik
WW^ONgikWW^nNimo_g^NOkmkWgnoNiiogg^n0Wno00=oggnoOml00WoO00=o_gooOml00WoO00AoogoO
Oomogeioo`0006YD]U1eHOUboFYjL_aE5E0FGIQQn50EE?E^g6jKISY^VfkKJW]^g67HD1EQ^6kLISU^
_5fhJW]^VfXjK]aMf50DGKQbo6IJJW]^Vd`EJUY^g6HiL[aQf6HIK[aV6VjkJY]^Vg;lHOYMMfkLK[]V
6E0DEAMUnD`EFIMbo6YKJWYZVfjKK[]^Nd`EE;I^g6IKKW]VNUfGL_aV>VjKKW]@MU1dIQUbo6HjJ[]Z
>TaeB1=bo7^oMaegGUTGGMQb_6klHKQ@5F6hK]aV>G;LHMQ@U52fE;IDm@9D]P0?E;E@mUBfE;ED]U3f
E;ED]UBeD?ID]UBeE;I@mUBe009D]P0KD;ED]U2eE?IDeUSgEAII5UTGFCIIF5UGGGQMEeUhGIMQN66I
GKMQV5gHHMQMf6GIHQQQfF7i009V6@09HQUVFFHIISYZ>VHjIUYZNFXj009ZN`9ZNP9ZV`08JYY^NfjK
KY]ZVfkLKY]^f`=^^`03K]]b_6kk009^g007Laa^fg;mL_ac77;lL_d00W<L00QboG<LLaec77<MLaag
?G<M1GLm00mgGGLlMcigGGMNMeekGWMMNeikGGMMNgigOG]oMgd00W]n00=gWG]oNgh00g^N00UoOg^o
Ogik_g^NOkikWgnnNkl00Wno00=oggnoOml00Wno0goO00IoogoOOomoggooOmmOOol0000RD;EDMUDf
L_aoof8IE;I<4fXjOom44e1eHOUkOWooNgmI5WooKY]DmE1fE?EZNgooOkm@M5DFNkioofYjE?M@METG
HQT2Ool06ETGD1EEEWLNOom^o5BfEAIg?GooKW]MMefGHMQooeUhMcaooeBfD1EMMgooB1=DmUUG009o
o`07E=Ig?GooE?ID]E2EFGL00Woo00=I5eBfGOP00Woo00UIEeAdD7IE5VYKOomoWeCeB1<00Woo01UH
mdadKY]oof6HOom^Ve3fD7IDmFYKOomoge2fE;ID]E3fE;ID]EBfE?ID]EBfD;IDm@02E;H01U2eE?ID
]EBfD;IDm@9D]P0TD;EDmUBfE;IDmUBeDAIDmETGE=MIEUDgFCII=eUfGGQIUeUhGIMM]f6iGKQQ^5fh
IOUMf6GIHQQUnF7iHQUUnFHJIUUV6VII0VYJ00QVFVYJIUYZNVYkJWYZNfik0VZK00A^VfZKKYY^V`9^
^`0<K[a^ffjlK_a^fW:lK_]bg6kLK_abnfkM0g;l00ac7G;lLaec7GKlLaeg7G<mLaeg?7<mMah2Mcd0
17MNMcegGWLm0WMM00akGWMMMeigOGMONgegGG]nNgekOgMmNgl3Nih03G]nNimkWW^nOgik_W^OOimk
_gnnNkmoWg^o009o_`05Nkmo_goOOkmkg`06Oml4Ool00goOOomoo`1JOol0001WE;I@mE2EA1=ogdPD
D;E<56jKOomQfD`DD1E@UGooHMQ44efGK[a<55BfB1AQV7ooE?E@5D`EGCQooeCFD1A@]U2eA19oogMN
B1=DmE0EC1Aoof6hC1E@550EOomIUd`DD7I855fgNgi857MNC1=<5F7hOom^^dPDB1=kOWooA1=84g^N
B1A@]UBeA19oog;lB1A@]D@COomoOT@CD;IDmU1e@19oofijA1=V>GooB1A@553EB1AVFWLMD;A^g4`D
E?E<55fHOomD]U0ED;D00UBf00MD]E3fE;E@]EBfD?ID]@02E;H01U3eE;ID]EBfD?ID]@9D]P0BD?ED
]UBeE;IDmE2eE;IHmeDFEAMI5UDGFAMMMeUGFGQIMeeH0UfG00MMN5fHHKQM^67HGMQQf@02HOT026Gi
HQUV6FHiHQYV6FIIJSX2ISX016IjJUYZNVYk0VYj00MZNfZjKW]Z^fZKKY]Z^`02K[/03FjLK]]^_7:k
K[]bg6kLL]a^o6kKL_aboG;k009bo00JL_ebo7;lL_ec77<MMcac7G<LMcac7GLmLcag?G<mMcegGWML
MeigGGMNMcekGWMmNcigO@9kOP0LNeikOgMmNgikWW]NNiikOW^NNgik_W]nNkmoWW^NNkioWg^oOkmo
WWoONkioggnoOmmo_gooOkl2Oml017ooOmmoogoO0Woo00=oggooOol0G7oo00002E2eE;IDmD`ELaeQ
f51fC1Ag?P02Ool03T`DD7A@5GooL]a<4dPDOom<5D`CA1=boGooB1@2D;D0K52DOomV>D`EE;ED]TPD
OimoodPDE;ID]DPDOom^g4`DE;I84gooL]a<4e2fFAI<5E2EC1=kOU1fC1A^W7ooOkm@5DPCL_eoodPD
C1EbffXjB1=855BfOomQnE0DE;I<57]nOom84eCfE;EDmTPCOomo_d0BNgiood@CE?ID]EBfC1=MfD`D
Omm@5D`D@1=foGooB1AD]E3hE?ID]UCgE;EDmeBfE?ID]UCgD;EDmeBfE?I@]UCfE;IDme2eE?MD]UCf
D;IDmUBfF=M@mECeF=MI5UTHFCIIE`9I=`0XGGQMMeVHGIMMV5fGHKQM^67HHKUQn67HHMUQn67iIOQR
6VGjIQUVFFHJHSYZNVHjJUUVNfIJJWYZNfZJKW]ZNfZjKW]^VfZkKY]ZVfjlK]/2K[/03FklK[]^g7;K
K]abg6kLL]]bo7;mLaa^o7<L009c7@05Maabo7<MLaeg7002Lad05WLlMcig?G<mMcecGGLmMcigG7MN
NeegGWMMNeicOG]NMeigOWMmNgikOg]M0W^N015kOW^ONgikWWmoNkikOW^oOimk_WnNNkmk_W^oOiio
ggnn009o_`04Oomo_gooOkl4Oml01GooOmmoogooOml0GGoo000025CfE;I@]U1eHOQc?50DB1@2Ool0
36HIL_a<54PDOomkGT`DD1EQf7ooMeikG@9oo`1:B1=@mUBeB1AoofjLC1ADmU2eC1Ag7Goo@19<550E
A19oognNB1ADeDPDOomg?T0BC1AoOd`CE;I@5G:lHMQ44goOOomI5WLmA1=^VgooB1=DMD`EOomgGW]M
Ommooe2eD9ED]D`DK]aoodPDE;ED]U2eB1Ao_goo@15o_gooB1A@]EBfD;E@mUBEC1EQf7ooMeekG@9o
o`09B1=@]U3HE?I@]U2eE;I@mUBe009@]P06E?ED]U2eE;IDmU2e0UBf00a@mEBfE;E@]UBfE;E@mU2f
E?ED]UCfE?D2EAL03EUGFAII=eeHFGIIF5egGIQIUf6hGIQQ^5fi009Qf003HMUQn68I009Qn@0<ISUR
6FIIIQYV>FYJISUZFVIJJU]ZFVYj0VYk00IZNVZKKW]ZVfZkKYX2KY/02VkKJ[]b^f[LK[]b_6kKK[]^
o7;L0Vkl01eboG;LL_abo7<LM_ac77;mLaac7GLLLaec?GLlLaeg?G<mMcegGGLMMcegGGMNMcegGWMM
MeigOW]N009gG@=kOP0@NeegWg]NMiikWW]mNimkWW^nOgik_WnNNkmoWW^oOih2Okl01G_ONimoggno
Oml00gno00AoggooOmmoo`=ogf1oo`0000i@]EBeE;I@]E0EOim854PCOomoWT0BOom<5DPC0Woo00U8
55BfB1Aoge0EB1Aoog<MC1@00UBf00e44gooOim84eBfE?I<56HkOomZ>VZKKY]V>P02Ool0?DPDE;I8
57^NOomb_7oOOom855BeD9EIUg<M@15oog]n@15o_dPDHKQooe1eD;E<57<MIQU857MNOom855BfD?I<
56HIOom@UE1fE?ED]T`DK]aooc`AMcioodPCE;IDmUBfE;E@]EBfB1Aooe0EB1AoogLMC1=@mU2g009D
]@0BE?ID]E2fE;IDmEBfD;ID]E3fE;E@]UBfD?ED]U2fE;E@mUBe0UBf00A@]EBfE;IDm@9De`0GEAEI
5eTFECMIEeTfGGQIMeUHFIMQN5VHGKQM]f6hGKUQf67iHMUUnF7iISUQn@02IQT03FHiIU]V>FHjIUYZ
NVHiJWYZFVIkJWYZVfij009ZV`0LKY]ZVfZkK[]^Vg:LJ[]b^fjlK]]^g7;LK]]^g7;kL_a^ng;mL_a^
o7;lLaec77;lLaec77<MMa`2Lad09GLlLceg?GLmLcag?WMMMcegGG/nMeekGWMMNeigGG]oMgigGG]m
MemkOW]mNimoGWNNNiikOW]oNiik_gmoNiioWW^oOimkggnO009o_P04Ommk_goOOkl4Oml01gnoOmmo
ggooOmmoogoO05moo`0000iD]U2fE?ED]T`DMeeDMUCfOom^fd@CKYabo40B0Woo03E84eBeD1EZVegH
B1=oofHIC1ADmU2eC1Ao_gooB1=DeU2eD1EMUgooIQUMN5ghFAMg?GooB1=D]D`DL_eooeCfJWYood`D
D;I@]E0EMce84gooJY]<55gHKY]@MWooFEM@5U3DE;Ig?C`A009oo`0[B1=D]UBeC1EMN7ooGEQ@U52f
E;E<5FYJOom44f6hOomD]E1eD;EDmE2fE;IDmU0DKW]MfDPCOomV6D`EE;ID]E2fE?ID]E2fE;IDmE2f
E;ID]ECfE;D00UBf00IDmEBfE;ID]ECfE;D2E;H0<53eE;ID]U3eE;IE5UCeFAMHmUDgFEII=eUHFEIM
N5fGGGMMV5fGHKQM^F6hGOQQf67IHQQUf68IHOUV6F8JIQUV>VHIISYZ>VIIJU]ZNVIJJW]^NVYjJY]Z
NfZJKY]ZV`9^V`0@J[]b_6ZkL]]^_6kKK]ab^fklK]afg6klK]abgFlKL_d3L_`01FkmMaac7G;mMc`0
0W<M01Ig?7<mMaig?7<mMcigGGLmMeegGW=LNeig?G]NMeekOWMMNeekOW]oNgekW@9kOP0AMiikOW]o
OiikWW^nNgik_WnNMkmoWW^oOiik_gnOOmmkW`02Okl01goONkmoggoOOkmoggoo009og`=oo`03Ommo
ogoo05aoo`0001m@]ECfD;I@]E0EJWYR6EehOomUnT`DB1=ood@BMeioodPDE;I@]EBeMciM>7ooFAM@
UE1eE;I<4g;mOom85002E;H0;U1dD7IooegiC1=@MD`CISYood`EE;I<4fYjOom44dPCNgiE5e1dE;I<
56jLISUoof6iD1A857]mE?Ioof7IC7ED]T`DLceDMWooL_e<552EE;ID]D`EOomVFU0E0UBf00Q<5EVG
OomIEd@COomg7DPD0UBf011D]E2fC1A@eE0EMceM>7ooFAM@55BfE?ID]E2fE;IDm@9D]P0>E;E@mUBf
E;E@]UCeE;I@]UBeE?I@]UBeE;I@m@9D]P08E;EDmUBfD;EHme4FFAIE5`9I5`05GGMI=eUhFGMIF002
GIL01F6IGKMQ^5gHHKP00V7H00MQfV7hHOUUnFHiIOUV>@02ISX056IIISYZ>VIjJUYZNfYJIW]^VVYk
K[]ZNfjKK[]ZVfjKKYYZVg;KJ[`2K[/066kKL]a^fW;LK]]bgG;kLaebg6klMaabo7<LL_aboG<LMaec
7G<LMcec7GLlLceg7P=g?@0@Mcig?GMMMeigGGMNMeegOW]MMgigOGMNNgekOg]nMgh2Ngh057^NMiek
Og^NOgmk_W]oNkioWW^oOimk_g^NOmmkWgoOOkmoggnoOml2Okl017ooOmmoggoo0WoO00=oogoOOol0
GWoo0002E;H04eBeE;ID]ECfL[a^VgooEAI@UE0DJY]VFVXjOom<552eE;I<56Hi009oo`0PB1=E5V5h
C1A<5FYjOom<4e2fD1AMN4PDOom^Vd`DE;I@MEfGOomIEe1dC7EQ^7ooFEM@5E2ED1EHmeCeD7IDmP9o
o`0XD9A@MU1eHOQ^_7ooISU@552eD7ED]WnnOomQnD`DHMU<4e2fB1=oog;LC1A@]E2fFAI@5GooIQU8
4fYJOom<550ED;E@eEBfLae@54`EIST2Ool0FD@CC1E@ME2eE?MD]UCfE;IDme2eE?MD]ECgE;IDmUBf
E?MD]ECgE;EDmeBfE?ID]UCgE;EDme2eF?MDeUCeF?ME5eTGFCMIEUTgFEMMMeeHGIMMV5fGFIMM^66H
GKQQf67iHMUQn67IIOUV>67iIQUR6FHjISUV>VYjISYVFVYjJUYVNVYjJW]VNVikJW]Z^VZKK[Y^VfZK
L]aZ_6jKK[]^ng:lK]abg6kLK_abo6kLL]`00g;l00U^oGKmLaabo7<MLaac7GLMLa`00W<M01=g?GLl
Mcec?GMMMcegGGMNNceg?WMmMeikGGMNMeekGg]mNgigG@02Ngh017^NOgigOWnO0g^N00aoWW^nOgik
_WnONkikWgoONiioggnNOml2Okl00goOOkmoo`05Oml00gooOmmoo`1OOol00007D;E@mUBfE?E@]TPD
L_/00Woo00a<552eE;I<57mnIUYooeSgD7EDeE2fB1<2Ool06DPCC1EooeSgA1=D]WooE;I855CfOolh
47ooOim04eBeC1E857ooIQY8550EB1Aoof6i00984`05C1Aooe2fE7Dl4002Ool0GT`DD;ED]TPDNeeo
og;LA1=D]U2eB1AkGWooE?I<57<lNem44T0AOomogd@CA19ogf7H>11oog;LA1=04WoOOom<54`EC1AQ
^7ooB1AD]DPCOomogeVGOomQ^52EE;EDmU2fE;ED]U3fE;ED]U2eE?ID]U2eE;IDmU2eE;ID]E3fE;ID
mE2fE?ID]E2fE;I@mUCfF=II5eDeEAMI=eUFFCMIN5UgHGQIMefHHIQM]efhHKQQ^EgHHOQQnF8H0V7i
00=V6F8iIQX00VHi0VHj00eZFVIJJUYZNVYJJW]VNVikJYY^VfYkKY]ZV`02K[/04FjKK[]^_6kKK[a^
nfjkK]abnfkLK]]c76kML_]c77;mL_/00W<M0W<L00Ic7G<LLaeg?G<LMcd2Lcd3Mcd03gMMLcegGGMN
NeegGW]MMeigOG]nLeekOg]NNgigOP02Ngh05WMnNiikOWNNOiikOW^OOiik_gnONkioWWoONimoggno
Nkmo_WoONkmo_goO0Wno00=oggooOml00WoO00=oogoOOol0GWoo0002E;H01E2eD;ID]U0DFGP00Woo
00E84eBfE?I<568I009oo`0CEEM<55BfE;I857KlOmm854`DK[]oog;LMceoogoOK[]oogoOJWX00Woo
00Ag?ECfFEMoW`9oo`03J_]I=gnN009oo`07L_aboGooOom84eTFMch00Woo00E855BfD=I@M5UG009o
o`09LaeDmEBfD9A@]WooC1=@]T`D009oo`08L[aoogooKYYkWgooE;Ig7@9oo`07LaeDeD@BMeioofYj
ISX00Woo04I<55BfC1Abg7^NHKUoof8ID1A@mU2fE;E@]U3fE;E@]U2eE?I@]U2eE;I@mU2eE;I@]E3f
E;I@]E2fE;I@]E3fE;E@mUBfE=EDmUDFEAMI=eTFFEMM>5UfGGQIEefHFIMMV5fhHKQMf5fhHMQQfFGI
HOQR6FHJHQUV6FHiIQYV>VIIJSYV>FYJIW]VFP9ZN`05KW]ZVfjKIWYZV`02KY/0<fjkKY]Z^g;KK[aZ
^g:lK[]^ng:lL]a^g7;lK]]bo7;mL_a^ngKmLaebng;mMaebo7<mMaec77LmLaag?WLmLcec?7LnMeeg
?GMNMeagGWMMMeigGG]NMgikGW]mMgekOg]mOeigWP02Ngh2Nih03G]nNimkWg^nOgik_gnOOkmkWW^o
OkioWgoO009o_`=og`03OkmoogoO009og`05OomoggooOomog`1NOol0000>D;EDmUBfE;I@]51fJWYo
ogoOB1AD]E2fE;I44`9oo`0[Nei@MEBeE;I@]DcEGCM@MEBfD7EM^5DFE=I855CfEAII=eehHKQ@]U2D
IQU@]UTFHOQ<55CFIMUDmV7HC1AD]F7iHKUIUeAeD7E@mV7iE?ED]U2eE;D00UBf00A@55CfEAIR6@9D
]P0XE?I<55TGD;ED]DbEGIMI=eDGC1A<5ETgE;EM^5BfHOU@5EBeIOUD]U2eC1A@]FYJJWYD]TPCE;ID
mE2fD7EE5T`DFAM@55BfE;ED]UCfE;D2E;H01UCeE;ID]EBfE?ID]@9D]P06E?ED]UBeE;IDmUBe0UBf
021D]EBfE;EDmUCgF=IE5UTGFAIIEeDgFEMMEeUhGGQIUf6HGGMQ^EfhHKQQ^EghHMUQnF7HIQUQn6Gi
HQ]V6FHi0VHj0VIJ0VYJ01QZNVYJIW]ZVVYjKW]^^fjKIY]^^fjJJY]bVfZkK]]b^fjkL[a^g6kkL]a^
g6klL]`2L_`03VklL_abo7;lLaec77;mLaec77<MMcec77LmLc`2Mcd04GLnMceg?WMMMaegGW]MMeig
GG]NMeekGWMmMgmkGG]nMgh00W]n0W^N00=kOW^NOil00g^N00Yk_gnNNkikWgnoOiio_g^nNkmog`9o
_`05Ommo_gooOkmoo`05Oml2Ool00goOOomoo`1KOol0000DE;ID]ECfD;E@5G^NNeibo6HjD1EDmUBe
E;I@567IMcebo7oOEAM@]@9D]P0ND7ED]U2fE;E@5E1eE=ED]U1eE7I@UE1dD7IDM51fD9EDME2fD7ED
]E1fD9A@]U2EE7E@MU2ED7A@5E2e0UBf015@U5AeD;I@]EBfE;E@mUBfD9A@MU1eE;E@]UBeE;I@eUBe
009D]P03D7A@MU2D009D]P1<D9ADMU1eD;E@5E2dD7I@UEBeD;ID]U2eD1E@552fD=ID]EBfD;ID]EAf
E;E@]UBfD;ED]UCfD;ED]UBeD?ID]UBeD;IDmUBeD;ID]ECfD;ID]EBfD?ID]EBfD;EDmUBfD;EDmUCF
EAE@mUTGF=IEEeDfGEMI=eUgGGMIUeeHGIMIV5fgHIUQf5gHIMQQfF7HHQQUnV7iHST2IQT03FHiISYZ
>FHjJS]VFVYjIUYZNfYjJUYZNfjk009ZN`0AK[Y^NfZkKYa^ffjKK[a^^fkkK[a^^fkLK_abg6kKL_eb
g002L_`036lLLaaboG<kM_ec7GLLLaeg77<LLaec?@9g?@04Lceg?GLmMcd2Med02GLnMeeg?W]MMgik
GW=MNemkG@02Ngh01g^NMeikWW]nNgmkWW]n00=kWP08OimkWW^oNiiogg^NOkmk_`Ao_`04Ommo_goO
Okl3Oml00gooOmmog`1QOol0002CE;E@]UBfE=I@]D`DC1E<550EE;I@]ECFE?I@]U0DC1A<5D`DE;I@
eUBeE;I@mUBfE;E@eUCfE;I@]EBfE?I@]UBeE=I@mUBfE;E@]UCfE;I@]ECFE?I@]UBeE;I@mUBfE;E@
eUCfE;I@]EBfE?I@]UBeE=I@mUBfE;E@]UCfE;I@]ECFE?I@]UBeE;I@mUBfE;E@eUCfE;I@]EBfE?I@
]UBeE=I@mUBfE;E@]UCfE;I@]ECFE?I@]UBeE;I@mUBfE;E@eUCfE;I@]EBfE?I@]UBeE=I@mUBfE;E@
]UCfE;I@]ECFE?I@]UBeE;I@mUBfE;E@eUCfE;I@]EBfE?ID]U2eF=ME5EDGFAMI5UTGFGQMEeEGGGQM
MeVGHIQMUefhGKMM^F6h009Mf00ZIQUQfF7hIOUV6V8iIQUV6VIIISYZ>VIIIUYZFVYkIUYZNfZJIWY^
NfZjJ[]ZVfjkKY]^^VZlK]a^^fkLK[]bg6kKL]a^ffkLL_a^ng;ML_ac7G;k0g;m00mc6g<MLaeg77<M
Mcec77LlMcig7GLmLcig?GMMMch00WMM019gGW]MMeigGGMnNgegOGMnNgigGW]mNiigOW]nNgek_W^N
Ogl3Nih01WnnNiio_g^OOkmk_P9o_`06OkioggnoNkmoggno1WoO00=oogoOOol0Ggoo0000Oe2fE=ID
]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID
]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID
]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID
]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID]UCFE;IDeUBfE=ID
]UCFE;IDeUBf009DeP06E?EHeeTGEAMI=eTf0UTg00EMMeeHFIMMV5Ug009Q^00:GKUQ^5gHHOUUfF7h
IOUQnFHiHQT2IQT02fIIJSUV>fYJIUYZFfYjJUY^NfZJJW/00VjK00=ZNfjKKY/00VjK00IZ^g:LK[]b
^f[KL[`2K]/02VkLL]abnfklL]a_6g;mL_]boG;l0W<L01IboG<MLaac7GLmLaag?W<MLceg?G=MMcag
?WMLMeikGGMNNeegGW]mMeikG@9gGP0BNgikGW]nNeikOW]NMimkWW]nNgmkWW^oNgio_g]oOkmkWg^n
0Wno00Ek_gnoNmmo_gnn00Eog`05OomoggooOomog`03Ool00goOOomoo`1KOol00025?10l4C`@?14l
43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l
43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l
43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l
43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l43`A?10l4C`@?14l
43`A?10l4D0A?1504D0BA1400T@C02U44T@CB1=84dPDB1=<54PCC1E@54adD7E@M52eD;I@eECeD=II
5UDFECMI=UDfFGIIEeUgFIIIMefGFKMMN5fgGMQM^67HGMQQn67iHOQQnF8H009R6@0?IQUR>FHiISYV
>FHjIUYZFVIJJUYVFVYjIWYZNVYk009ZVP9ZV`04JYY^VfZkJ[X2K[/036kKK[]^ffkKK]a^ffklK_]^
o7;lK_abo0Ec7009Lcac?G<lMcag7G=MMcecG7Lm00=gG@04Mgeg?GMmNeh2Mgd027]mMgikOGNNNiik
OW^NMih2Nih02W^ONkikWW^oOkmk_WoONkmogg_O0WoO00=oogoOOol0Egoo0000\
\>"], "HeaderCell",
  ShowCellBracket->False,
  CellMargins->{{0, 0}, {Inherited, 0}},
  Evaluatable->False,
  ImageSize->{350, 24},
  ImageMargins->{{0, 0}, {0, 0}},
  ImageRegion->{{0, 1}, {0, 1}}],

Cell[TextData[{
  "Expression Formatting in ",
  StyleBox["Mathematica ",
    FontSlant->"Italic"],
  "Notebooks"
}], "Title"],

Cell[TextData[{
  "A few examples of ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  "'s unprecedentedly powerful expression formatting capabilities."
}], "Subtitle"],

Cell[CellGroupData[{

Cell["Recursive Expressions", "Section"],

Cell["This shows successive nesting in an ordinary expression.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(NestList[\@\(1 + #\)&, \[Lambda], 5]\)], "Input"],

Cell[BoxData[
    \({\[Lambda], \@\(1 + \[Lambda]\), \@\(1 + \@\(1 + \[Lambda]\)\), 
      \@\(1 + \@\(1 + \@\(1 + \[Lambda]\)\)\), 
      \@\(1 + \@\(1 + \@\(1 + \@\(1 + \[Lambda]\)\)\)\), 
      \@\(1 + \@\(1 + \@\(1 + \@\(1 + \@\(1 + \[Lambda]\)\)\)\)\)}\)], 
  "Output"]
}, Open  ]],

Cell["\<\
RadicalBox is an expression formatting primitive that is displayed \
as a radical.\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(NestList[RadicalBox[#, #]&, x, 4] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      "\({x, \@x\%x, \@\(\@x\%x\)\%\(\@x\%x\),          \
\@\(\@\(\@x\%x\)\%\(\@x\%x\)\)\%\(\@\(\@x\%x\)\%\(\@x\%x\)\),          \@\(\@\
\(\@\(\@x\%x\)\%\(\@x\%x\)\)\%\(\@\(\@x\%x\)\%\(\@x\%x                       \
\)\)\)\%\(\@\(\@\(\@x\%x\)\%\(\@x\%x\)\)\%\(\@\(\@x\%x                       \
\)\%\(\@x\%x\)\)\)}\)",
      DisplayForm]], "Output"]
}, Open  ]],

Cell["This creates a recursive button structure. ", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(NestList[GridBox[Table[ButtonBox[#], {2}, {2}]]&, \[FilledSmallCircle], 
        2] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{"\[FilledSmallCircle]", ",", GridBox[{
              {
                ButtonBox["\[FilledSmallCircle]"], 
                ButtonBox["\[FilledSmallCircle]"]},
              {
                ButtonBox["\[FilledSmallCircle]"], 
                ButtonBox["\[FilledSmallCircle]"]}
              }], ",", GridBox[{
              {
                ButtonBox[GridBox[{
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]},
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]}
                      }]], 
                ButtonBox[GridBox[{
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]},
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]}
                      }]]},
              {
                ButtonBox[GridBox[{
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]},
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]}
                      }]], 
                ButtonBox[GridBox[{
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]},
                      {
                        ButtonBox["\[FilledSmallCircle]"], 
                        ButtonBox["\[FilledSmallCircle]"]}
                      }]]}
              }]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["This creates another recursive typeset structure.", "Text"],

Cell[CellGroupData[{

Cell[BoxData[
    \(NestList[SubsuperscriptBox[#, #, #]&, "X", 4] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      \({"X", X\_X\%X, \(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X\), 
        \(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X\)\)\_\(\(X\_X\%X\)\_\(X\_X\%X
                  \)\%\(X\_X\%X\)\)\%\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X
                  \)\), \(\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X\)\)\_\(\(X\_X
                      \%X\)\_\(X\_X\%X\)\%\(X\_X\%X\)\)\%\(\(X\_X\%X\)\_\(X\_X
                      \%X\)\%\(X\_X\%X\)\)\)\_\(\(\(X\_X\%X\)\_\(X\_X\%X
                      \)\%\(X\_X\%X\)\)\_\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X
                      \)\)\%\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X
                      \)\)\)\%\(\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X
                      \)\)\_\(\(X\_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X\)\)\%\(\(X
                      \_X\%X\)\_\(X\_X\%X\)\%\(X\_X\%X\)\)\)}\),
      DisplayForm]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Manipulating Box Structures", "Section"],

Cell[TextData[{
  "Here is a typical ",
  StyleBox["Mathematica",
    FontSlant->"Italic"],
  " expression."
}], "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Factor[x\^12 - 1]\)], "Input"],

Cell[BoxData[
    \(\((\(-1\) + x)\)\ \((1 + x)\)\ \((1 + x\^2)\)\ \((1 - x + x\^2)\)\ 
      \((1 + x + x\^2)\)\ \((1 - x\^2 + x\^4)\)\)], "Output"]
}, Open  ]],

Cell["This shows the box representation of the expression.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(boxes = ToBoxes[%]\)], "Input"],

Cell[BoxData[
    \(RowBox[{RowBox[{"(", RowBox[{RowBox[{"-", "1"}], "+", "x"}], ")"}], 
        " ", RowBox[{"(", RowBox[{"1", "+", "x"}], ")"}], " ", 
        RowBox[{"(", RowBox[{"1", "+", SuperscriptBox["x", "2"]}], ")"}], 
        " ", RowBox[{"(", 
            RowBox[{"1", "-", "x", "+", SuperscriptBox["x", "2"]}], ")"}], 
        " ", RowBox[{"(", 
            RowBox[{"1", "+", "x", "+", SuperscriptBox["x", "2"]}], ")"}], 
        " ", RowBox[{"(", 
            RowBox[{"1", "-", SuperscriptBox["x", "2"], "+", 
                SuperscriptBox["x", "4"]}], ")"}]}]\)], "Output"]
}, Open  ]],

Cell["\<\
This replaces every superscript in the expression by an overscript.\
\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(DisplayForm[boxes /. SuperscriptBox \[Rule] OverscriptBox]\)], "Input"],

Cell[BoxData[
    TagBox[
      "\(\((\(-1\) + x)\)\\ \((1 + x)\)\\ \((1 + x\&2)\)\\ \((1 - x + x\&2)\)\
\\          \((1 + x + x\&2)\)\\ \((1 - x\&2 + x\&4)\)\)",
      DisplayForm]], "Output"]
}, Open  ]],

Cell["This puts a frame around row boxes at every level.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(DisplayForm[\(\((# /. a : RowBox[_] \[Rule] FrameBox[a])\)&\)//@boxes]
      \)], "Input"],

Cell[BoxData[
    TagBox[
      FrameBox[
        RowBox[{
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox[
                    RowBox[{
                      FrameBox[
                        FrameBox["\(-1\)"]], "+", "x"}]]], ")"}]]], " ", 
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox["\(1 + x\)"]], ")"}]]], " ", 
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox["\(1 + x\^2\)"]], ")"}]]], " ", 
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox["\(1 - x + x\^2\)"]], ")"}]]], " ", 
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox["\(1 + x + x\^2\)"]], ")"}]]], " ", 
          FrameBox[
            FrameBox[
              RowBox[{"(", 
                FrameBox[
                  FrameBox["\(1 - x\^2 + x\^4\)"]], ")"}]]]}]],
      DisplayForm]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Changing Styles", "Section"],

Cell["This makes characters with a sequence of different sizes.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Table[StyleBox["\[Alpha]", FontSize \[Rule] i], {i, 60}] // DisplayForm
      \)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{
          StyleBox["\[Alpha]",
            FontSize->1], ",", 
          StyleBox["\[Alpha]",
            FontSize->2], ",", 
          StyleBox["\[Alpha]",
            FontSize->3], ",", 
          StyleBox["\[Alpha]",
            FontSize->4], ",", 
          StyleBox["\[Alpha]",
            FontSize->5], ",", 
          StyleBox["\[Alpha]",
            FontSize->6], ",", 
          StyleBox["\[Alpha]",
            FontSize->7], ",", 
          StyleBox["\[Alpha]",
            FontSize->8], ",", 
          StyleBox["\[Alpha]",
            FontSize->9], ",", 
          StyleBox["\[Alpha]",
            FontSize->10], ",", 
          StyleBox["\[Alpha]",
            FontSize->11], ",", 
          StyleBox["\[Alpha]",
            FontSize->12], ",", 
          StyleBox["\[Alpha]",
            FontSize->13], ",", 
          StyleBox["\[Alpha]",
            FontSize->14], ",", 
          StyleBox["\[Alpha]",
            FontSize->15], ",", 
          StyleBox["\[Alpha]",
            FontSize->16], ",", 
          StyleBox["\[Alpha]",
            FontSize->17], ",", 
          StyleBox["\[Alpha]",
            FontSize->18], ",", 
          StyleBox["\[Alpha]",
            FontSize->19], ",", 
          StyleBox["\[Alpha]",
            FontSize->20], ",", 
          StyleBox["\[Alpha]",
            FontSize->21], ",", 
          StyleBox["\[Alpha]",
            FontSize->22], ",", 
          StyleBox["\[Alpha]",
            FontSize->23], ",", 
          StyleBox["\[Alpha]",
            FontSize->24], ",", 
          StyleBox["\[Alpha]",
            FontSize->25], ",", 
          StyleBox["\[Alpha]",
            FontSize->26], ",", 
          StyleBox["\[Alpha]",
            FontSize->27], ",", 
          StyleBox["\[Alpha]",
            FontSize->28], ",", 
          StyleBox["\[Alpha]",
            FontSize->29], ",", 
          StyleBox["\[Alpha]",
            FontSize->30], ",", 
          StyleBox["\[Alpha]",
            FontSize->31], ",", 
          StyleBox["\[Alpha]",
            FontSize->32], ",", 
          StyleBox["\[Alpha]",
            FontSize->33], ",", 
          StyleBox["\[Alpha]",
            FontSize->34], ",", 
          StyleBox["\[Alpha]",
            FontSize->35], ",", 
          StyleBox["\[Alpha]",
            FontSize->36], ",", 
          StyleBox["\[Alpha]",
            FontSize->37], ",", 
          StyleBox["\[Alpha]",
            FontSize->38], ",", 
          StyleBox["\[Alpha]",
            FontSize->39], ",", 
          StyleBox["\[Alpha]",
            FontSize->40], ",", 
          StyleBox["\[Alpha]",
            FontSize->41], ",", 
          StyleBox["\[Alpha]",
            FontSize->42], ",", 
          StyleBox["\[Alpha]",
            FontSize->43], ",", 
          StyleBox["\[Alpha]",
            FontSize->44], ",", 
          StyleBox["\[Alpha]",
            FontSize->45], ",", 
          StyleBox["\[Alpha]",
            FontSize->46], ",", 
          StyleBox["\[Alpha]",
            FontSize->47], ",", 
          StyleBox["\[Alpha]",
            FontSize->48], ",", 
          StyleBox["\[Alpha]",
            FontSize->49], ",", 
          StyleBox["\[Alpha]",
            FontSize->50], ",", 
          StyleBox["\[Alpha]",
            FontSize->51], ",", 
          StyleBox["\[Alpha]",
            FontSize->52], ",", 
          StyleBox["\[Alpha]",
            FontSize->53], ",", 
          StyleBox["\[Alpha]",
            FontSize->54], ",", 
          StyleBox["\[Alpha]",
            FontSize->55], ",", 
          StyleBox["\[Alpha]",
            FontSize->56], ",", 
          StyleBox["\[Alpha]",
            FontSize->57], ",", 
          StyleBox["\[Alpha]",
            FontSize->58], ",", 
          StyleBox["\[Alpha]",
            FontSize->59], ",", 
          StyleBox["\[Alpha]",
            FontSize->60]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["Here the size of the characters increases quadratically.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(RowBox[
        Table[StyleBox["\[MathematicaIcon]", FontSize \[Rule] i\^2\/6.5], {i, 
            2, 23}]] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["\[MathematicaIcon]",
          FontSize->0.5625], 
        StyleBox["\[MathematicaIcon]",
          FontSize->1.375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->2.4375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->3.8125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->5.5], 
        StyleBox["\[MathematicaIcon]",
          FontSize->7.5], 
        StyleBox["\[MathematicaIcon]",
          FontSize->9.8125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->12.4375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->15.375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->18.5625], 
        StyleBox["\[MathematicaIcon]",
          FontSize->22.125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->26], 
        StyleBox["\[MathematicaIcon]",
          FontSize->30.125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->34.5625], 
        StyleBox["\[MathematicaIcon]",
          FontSize->39.375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->44.4375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->49.8125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->55.5], 
        StyleBox["\[MathematicaIcon]",
          FontSize->61.5], 
        StyleBox["\[MathematicaIcon]",
          FontSize->67.8125], 
        StyleBox["\[MathematicaIcon]",
          FontSize->74.4375], 
        StyleBox["\[MathematicaIcon]",
          FontSize->81.375]}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["This makes characters with a sequence of different hues.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Table[
        StyleBox["\[MathematicaIcon]", FontColor \[Rule] Hue[i/75.5]], {i, 
          60}] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.079469, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.158938, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.238407, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.317876, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.397345, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.476814, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.556298, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.635767, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.715236, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.794705, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.874174, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[1, 0.953643, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.966888, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.887419, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.80795, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.728481, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.649012, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.569543, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.490059, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.41059, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.331121, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.251652, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.172183, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.092714, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.013245, 1, 0]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.066224]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.145693]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.225162]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.304631]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.3841]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.463569]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.543053]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.622522]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.701991]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.78146]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.860929]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 1, 0.940398]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.980133, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.900664, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.821195, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.741726, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.662257, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.582788, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.503319, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.423835, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.344366, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.264897, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.185428, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.105959, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0, 0.02649, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.052979, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.132448, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.211917, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.291386, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.370855, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.450324, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.529809, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.609277, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.688746, 0, 1]], ",", 
          StyleBox["\[MathematicaIcon]",
            FontColor->RGBColor[0.768215, 0, 1]]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["\<\
This function wraps a StyleBox with random option settings around \
any expression.\
\>", "Commentary"],

Cell[BoxData[
    \(RandomizedStyle[expr_] := 
      StyleBox[expr, FontSize \[Rule] Random[Integer, {8, 20}], 
        FontColor \[Rule] GrayLevel[Random[]/2], 
        FontSlant 
          \[Rule] {"Plain", "Italic"}\[LeftDoubleBracket]1 + 
              Random[Integer]\[RightDoubleBracket], 
        FontWeight 
          \[Rule] {"Plain", "Bold"}\[LeftDoubleBracket]1 + 
              Random[Integer]\[RightDoubleBracket]]\)], "Input"],

Cell["\<\
Here is the result of applying randomized styles to a string of \
characters.\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Do[Print[
        RowBox[RandomizedStyle/@Characters["This text looks strange"]] // 
          DisplayForm], {5}]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["T",
          FontSize->11,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.381643]], 
        StyleBox["h",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.421393]], 
        StyleBox["i",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.469642]], 
        StyleBox["s",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.24654]], 
        StyleBox[" ",
          FontSize->11,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.318791]], 
        StyleBox["t",
          FontSize->20,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.068147]], 
        StyleBox["e",
          FontSize->8,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.391348]], 
        StyleBox["x",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.49398]], 
        StyleBox["t",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.301549]], 
        StyleBox[" ",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.246418]], 
        StyleBox["l",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.338674]], 
        StyleBox["o",
          FontSize->20,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.020584]], 
        StyleBox["o",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.293919]], 
        StyleBox["k",
          FontSize->9,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.242023]], 
        StyleBox["s",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.389487]], 
        StyleBox[" ",
          FontSize->19,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.49865]], 
        StyleBox["s",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.027634]], 
        StyleBox["t",
          FontSize->15,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.270848]], 
        StyleBox["r",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.220264]], 
        StyleBox["a",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.013336]], 
        StyleBox["n",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.477104]], 
        StyleBox["g",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.073838]], 
        StyleBox["e",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.462013]]}],
      DisplayForm]], "Print"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["T",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.107012]], 
        StyleBox["h",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.095445]], 
        StyleBox["i",
          FontSize->11,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.152453]], 
        StyleBox["s",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.492363]], 
        StyleBox[" ",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.360479]], 
        StyleBox["t",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.276661]], 
        StyleBox["e",
          FontSize->12,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.084306]], 
        StyleBox["x",
          FontSize->13,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.101015]], 
        StyleBox["t",
          FontSize->13,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.366491]], 
        StyleBox[" ",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.475105]], 
        StyleBox["l",
          FontSize->9,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.337881]], 
        StyleBox["o",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.262333]], 
        StyleBox["o",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.345907]], 
        StyleBox["k",
          FontSize->15,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.181186]], 
        StyleBox["s",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.095857]], 
        StyleBox[" ",
          FontSize->15,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.372854]], 
        StyleBox["s",
          FontSize->18,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.347265]], 
        StyleBox["t",
          FontSize->18,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.153567]], 
        StyleBox["r",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.325002]], 
        StyleBox["a",
          FontSize->13,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.15259]], 
        StyleBox["n",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.333913]], 
        StyleBox["g",
          FontSize->8,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.176455]], 
        StyleBox["e",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.251164]]}],
      DisplayForm]], "Print"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["T",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.190585]], 
        StyleBox["h",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.226902]], 
        StyleBox["i",
          FontSize->17,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.08101]], 
        StyleBox["s",
          FontSize->17,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.098726]], 
        StyleBox[" ",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.19823]], 
        StyleBox["t",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.36643]], 
        StyleBox["e",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.304356]], 
        StyleBox["x",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.01442]], 
        StyleBox["t",
          FontSize->19,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.097215]], 
        StyleBox[" ",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.499931]], 
        StyleBox["l",
          FontSize->18,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.329244]], 
        StyleBox["o",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.176532]], 
        StyleBox["o",
          FontSize->11,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.334874]], 
        StyleBox["k",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.154025]], 
        StyleBox["s",
          FontSize->9,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.148058]], 
        StyleBox[" ",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.080674]], 
        StyleBox["s",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.462028]], 
        StyleBox["t",
          FontSize->19,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.306767]], 
        StyleBox["r",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.494499]], 
        StyleBox["a",
          FontSize->9,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.255665]], 
        StyleBox["n",
          FontSize->13,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.309422]], 
        StyleBox["g",
          FontSize->13,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.472847]], 
        StyleBox["e",
          FontSize->15,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.318044]]}],
      DisplayForm]], "Print"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["T",
          FontSize->9,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.004501]], 
        StyleBox["h",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.118837]], 
        StyleBox["i",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.245945]], 
        StyleBox["s",
          FontSize->15,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.237034]], 
        StyleBox[" ",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.405783]], 
        StyleBox["t",
          FontSize->20,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.420615]], 
        StyleBox["e",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.379522]], 
        StyleBox["x",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.432685]], 
        StyleBox["t",
          FontSize->14,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.391363]], 
        StyleBox[" ",
          FontSize->16,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.3234]], 
        StyleBox["l",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.379583]], 
        StyleBox["o",
          FontSize->20,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.103441]], 
        StyleBox["o",
          FontSize->11,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.214817]], 
        StyleBox["k",
          FontSize->17,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.488533]], 
        StyleBox["s",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.225559]], 
        StyleBox[" ",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.455375]], 
        StyleBox["s",
          FontSize->13,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.134142]], 
        StyleBox["t",
          FontSize->11,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.026505]], 
        StyleBox["r",
          FontSize->8,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.418799]], 
        StyleBox["a",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.460868]], 
        StyleBox["n",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.37847]], 
        StyleBox["g",
          FontSize->10,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.217075]], 
        StyleBox["e",
          FontSize->16,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.445945]]}],
      DisplayForm]], "Print"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox["T",
          FontSize->8,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.14284]], 
        StyleBox["h",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.373983]], 
        StyleBox["i",
          FontSize->15,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.098238]], 
        StyleBox["s",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.199985]], 
        StyleBox[" ",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.405798]], 
        StyleBox["t",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.468193]], 
        StyleBox["e",
          FontSize->18,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.17763]], 
        StyleBox["x",
          FontSize->11,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.32047]], 
        StyleBox["t",
          FontSize->15,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.473121]], 
        StyleBox[" ",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.076844]], 
        StyleBox["l",
          FontSize->11,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.354223]], 
        StyleBox["o",
          FontSize->17,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.440879]], 
        StyleBox["o",
          FontSize->9,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.36968]], 
        StyleBox["k",
          FontSize->18,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.36202]], 
        StyleBox["s",
          FontSize->19,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.365698]], 
        StyleBox[" ",
          FontSize->19,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.215305]], 
        StyleBox["s",
          FontSize->9,
          FontWeight->"Plain",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.414313]], 
        StyleBox["t",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.227878]], 
        StyleBox["r",
          FontSize->14,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.339193]], 
        StyleBox["a",
          FontSize->17,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.296513]], 
        StyleBox["n",
          FontSize->15,
          FontWeight->"Plain",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.453437]], 
        StyleBox["g",
          FontSize->12,
          FontWeight->"Bold",
          FontSlant->"Plain",
          FontColor->GrayLevel[0.349401]], 
        StyleBox["e",
          FontSize->13,
          FontWeight->"Bold",
          FontSlant->"Italic",
          FontColor->GrayLevel[0.122118]]}],
      DisplayForm]], "Print"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Coloring Expressions", "Section"],

Cell["\<\
Here is a sequence of expressions colored with progressively \
different hues.\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Table[
        StyleBox[ToBoxes[Factor[x\^i - 1]], Background \[Rule] Hue[i\/12.]], {
          i, 12}] // DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{
          StyleBox["\(\(-1\) + x\)",
            Background->RGBColor[1, 0.499992, 0]], ",", 
          StyleBox["\(\((\(-1\) + x)\)\\ \((1 + x)\)\)",
            Background->RGBColor[1, 1, 0]], ",", 
          StyleBox["\(\((\(-1\) + x)\)\\ \((1 + x + x\^2)\)\)",
            Background->RGBColor[0.500008, 1, 0]], ",", 
          StyleBox["\(\((\(-1\) + x)\)\\ \((1 + x)\)\\ \((1 + x\^2)\)\)",
            Background->RGBColor[0, 1, 0]], ",", 
          StyleBox["\(\((\(-1\) + x)\)\\ \((1 + x + x\^2 + x\^3 + x\^4)\)\)",
            Background->RGBColor[0, 1, 0.500008]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\ \((1 + x)\)\\ \((1 - x + x\^2)\)\\          \
      \((1 + x + x\^2)\)\)",
            Background->RGBColor[0, 1, 1]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\                \((1 + x + x\^2 + x\^3 + \
x\^4 + x\^5 + x\^6)\)\)",
            Background->RGBColor[0, 0.500008, 1]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\ \((1 + x)\)\\ \((1 + x\^2)\)\\ \((1 + x\^4)\
\)\)",
            Background->RGBColor[0, 0, 1]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\ \((1 + x + x\^2)\)\\ \((1 + x\^3 + \
x\^6)\)\)",
            Background->RGBColor[0.500008, 0, 1]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\ \((1 + x)\)\\                \((1 - x + \
x\^2 - x\^3 + x\^4)\)\\                \((1 + x + x\^2 + x\^3 + x\^4)\)\)",
            Background->RGBColor[1, 0, 1]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\                \((1 + x + x\^2 + x\^3 + \
x\^4 + x\^5 + x\^6 + x\^7 + x\^8 +                    x\^9 + x\^10)\)\)",
            Background->RGBColor[1, 0, 0.499992]], ",", 
          
          StyleBox[
            "\(\((\(-1\) + x)\)\\ \((1 + x)\)\\ \((1 + x\^2)\)\\              \
  \((1 - x + x\^2)\)\\ \((1 + x + x\^2)\)\\ \((1 - x\^2 + x\^4)\)\)",
            Background->RGBColor[1, 0, 0]]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["\<\
This generates a list of colors, using each color as the background \
for its name.\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(Needs["\<Graphics`Colors`\>"]\)], "Input"],

Cell[BoxData[
    \(RowBox[
        \(StyleBox[AdjustmentBox[#, BoxMargins -> {{0, 0}, {1, 1}}], 
              Background -> ToExpression[#], FontSize -> 10]&\)/@AllColors]
         // DisplayForm\)], "Input",
  CellGroupingRules->"OutputGrouping"],

Cell[BoxData[
    TagBox[
      RowBox[{
        StyleBox[
          AdjustmentBox["AliceBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.941207, 0.972503, 1]], 
        StyleBox[
          AdjustmentBox["AlizarinCrimson",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.149996, 0.209995]], 
        StyleBox[
          AdjustmentBox["Antique",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.980575, 0.922332, 0.844663]], 
        StyleBox[
          AdjustmentBox["Apricot",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.340002, 0.129992]], 
        StyleBox[
          AdjustmentBox["Aquamarine",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.497993, 1, 0.831403]], 
        StyleBox[
          AdjustmentBox["AureolineYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.659998, 0.140002]], 
        StyleBox[
          AdjustmentBox["Azure",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.941741, 1, 1]], 
        StyleBox[
          AdjustmentBox["Banana",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.81001, 0.340002]], 
        StyleBox[
          AdjustmentBox["Beige",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.640009, 0.580011, 0.500008]], 
        StyleBox[
          AdjustmentBox["Bisque",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.898054, 0.771847]], 
        StyleBox[
          AdjustmentBox["Black",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0]], 
        StyleBox[
          AdjustmentBox["BlanchedAlmond",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.921599, 0.803906]], 
        StyleBox[
          AdjustmentBox["Blue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0, 1]], 
        StyleBox[
          AdjustmentBox["BlueViolet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.541207, 0.168597, 0.886305]], 
        StyleBox[
          AdjustmentBox["Brick",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.61001, 0.4, 0.119997]], 
        StyleBox[
          AdjustmentBox["Brown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.500008, 0.164691, 0.164691]], 
        StyleBox[
          AdjustmentBox["BrownOadder",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.859998, 0.159991, 0.159991]], 
        StyleBox[
          AdjustmentBox["BrownOchre",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.530007, 0.259998, 0.119997]], 
        StyleBox[
          AdjustmentBox["Burlywood",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.870604, 0.721599, 0.529412]], 
        StyleBox[
          AdjustmentBox["BurntSienna",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.540002, 0.209995, 0.0599985]], 
        StyleBox[
          AdjustmentBox["BurntUmber",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.540002, 0.2, 0.140002]], 
        StyleBox[
          AdjustmentBox["CadetBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.372488, 0.619608, 0.627512]], 
        StyleBox[
          AdjustmentBox["CadmiumLemon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.889998, 0.00999466]], 
        StyleBox[
          AdjustmentBox["CadmiumOrange",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.379995, 0.00999466]], 
        StyleBox[
          AdjustmentBox["CadmiumYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.6, 0.0699931]], 
        StyleBox[
          AdjustmentBox["Carrot",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.930007, 0.570001, 0.129992]], 
        StyleBox[
          AdjustmentBox["Cerulean",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.0200046, 0.719997, 0.8]], 
        StyleBox[
          AdjustmentBox["Chartreuse",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.497993, 1, 0]], 
        StyleBox[
          AdjustmentBox["Chocolate",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.823499, 0.411795, 0.117601]], 
        StyleBox[
          AdjustmentBox["ChromeOxideGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.4, 0.500008, 0.0800031]], 
        StyleBox[
          AdjustmentBox["CinnabarGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.379995, 0.700008, 0.159991]], 
        StyleBox[
          AdjustmentBox["Cobalt",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.239994, 0.349996, 0.670008]], 
        StyleBox[
          AdjustmentBox["CobaltGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.239994, 0.570001, 0.250004]], 
        StyleBox[
          AdjustmentBox["ColdGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.500008, 0.540002, 0.530007]], 
        StyleBox[
          AdjustmentBox["Coral",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.497993, 0.313695]], 
        StyleBox[
          AdjustmentBox["CornflowerBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.392187, 0.584314, 0.929397]], 
        StyleBox[
          AdjustmentBox["Cornsilk",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.972503, 0.862699]], 
        StyleBox[
          AdjustmentBox["Cyan",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 1, 1]], 
        StyleBox[
          AdjustmentBox["CyanWhite",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.878401, 1, 1]], 
        StyleBox[
          AdjustmentBox["DarkGoldenrod",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.721599, 0.525505, 0.0431067]], 
        StyleBox[
          AdjustmentBox["DarkGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.392187, 0]], 
        StyleBox[
          AdjustmentBox["DarkKhaki",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.741207, 0.717601, 0.419593]], 
        StyleBox[
          AdjustmentBox["DarkOliveGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.333288, 0.419593, 0.184298]], 
        StyleBox[
          AdjustmentBox["DarkOrange",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.549004, 0]], 
        StyleBox[
          AdjustmentBox["DarkOrchid",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.6, 0.196094, 0.8]], 
        StyleBox[
          AdjustmentBox["DarkSeaGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.5608, 0.737301, 0.5608]], 
        StyleBox[
          AdjustmentBox["DarkSlateBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.282399, 0.2392, 0.545113]], 
        StyleBox[
          AdjustmentBox["DarkSlateGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.184298, 0.309789, 0.309789]], 
        StyleBox[
          AdjustmentBox["DarkTurquoise",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.807797, 0.819608]], 
        StyleBox[
          AdjustmentBox["DarkViolet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.580407, 0, 0.827497]], 
        StyleBox[
          AdjustmentBox["DeepCadmiumRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.0899977, 0.0500038]], 
        StyleBox[
          AdjustmentBox["DeepCobaltViolet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.570001, 0.129992, 0.620005]], 
        StyleBox[
          AdjustmentBox["DeepMadderLake",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.179995, 0.18999]], 
        StyleBox[
          AdjustmentBox["DeepNaplesYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.659998, 0.0699931]], 
        StyleBox[
          AdjustmentBox["DeepOchre",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.449989, 0.239994, 0.0999924]], 
        StyleBox[
          AdjustmentBox["DeepPink",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.0784009, 0.576501]], 
        StyleBox[
          AdjustmentBox["DeepSkyBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.749004, 1]], 
        StyleBox[
          AdjustmentBox["DimGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0.333333]], 
        StyleBox[
          AdjustmentBox["DodgerBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.117601, 0.564706, 1]], 
        StyleBox[
          AdjustmentBox["Eggshell",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.990005, 0.900008, 0.790005]], 
        StyleBox[
          AdjustmentBox["EmeraldGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.790005, 0.340002]], 
        StyleBox[
          AdjustmentBox["EnglishRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.829999, 0.239994, 0.0999924]], 
        StyleBox[
          AdjustmentBox["Firebrick",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.698009, 0.133303, 0.133303]], 
        StyleBox[
          AdjustmentBox["Floral",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.980407, 0.941207]], 
        StyleBox[
          AdjustmentBox["ForestGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.133303, 0.545113, 0.133303]], 
        StyleBox[
          AdjustmentBox["Gainsboro",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0.862699]], 
        StyleBox[
          AdjustmentBox["GeraniumLake",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.0699931, 0.18999]], 
        StyleBox[
          AdjustmentBox["Ghost",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.972503, 0.972503, 1]], 
        StyleBox[
          AdjustmentBox["Gold",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.843107, 0]], 
        StyleBox[
          AdjustmentBox["Goldenrod",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.854902, 0.647105, 0.125505]], 
        StyleBox[
          AdjustmentBox["GoldOchre",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.780011, 0.469993, 0.149996]], 
        StyleBox[
          AdjustmentBox["Gray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0.752911]], 
        StyleBox[
          AdjustmentBox["Green",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 1, 0]], 
        StyleBox[
          AdjustmentBox["GreenishUmber",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.239994, 0.0500038]], 
        StyleBox[
          AdjustmentBox["GreenYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.678401, 1, 0.184298]], 
        StyleBox[
          AdjustmentBox["Honeydew",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.941207, 1, 0.941207]], 
        StyleBox[
          AdjustmentBox["HotPink",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.411795, 0.705898]], 
        StyleBox[
          AdjustmentBox["IndianRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.689998, 0.0899977, 0.119997]], 
        StyleBox[
          AdjustmentBox["Indigo",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.0299992, 0.179995, 0.329992]], 
        StyleBox[
          AdjustmentBox["Ivory",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 1, 0.941207]], 
        StyleBox[
          AdjustmentBox["IvoryBlack",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.159991, 0.140002, 0.129992]], 
        StyleBox[
          AdjustmentBox["Khaki",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.941207, 0.902007, 0.549004]], 
        StyleBox[
          AdjustmentBox["LampBlack",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.179995, 0.280003, 0.229999]], 
        StyleBox[
          AdjustmentBox["Lavender",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.902007, 0.902007, 0.980407]], 
        StyleBox[
          AdjustmentBox["LavenderBlush",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.941207, 0.9608]], 
        StyleBox[
          AdjustmentBox["LawnGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.48629, 0.988205, 0]], 
        StyleBox[
          AdjustmentBox["LemonChiffon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.980407, 0.803906]], 
        StyleBox[
          AdjustmentBox["LightBeige",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.9608, 0.9608, 0.862699]], 
        StyleBox[
          AdjustmentBox["LightBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.678401, 0.847105, 0.902007]], 
        StyleBox[
          AdjustmentBox["LightCadmiumRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.00999466, 0.0500038]], 
        StyleBox[
          AdjustmentBox["LightCadmiumYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.689998, 0.0599985]], 
        StyleBox[
          AdjustmentBox["LightCoral",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.941207, 0.502007, 0.502007]], 
        StyleBox[
          AdjustmentBox["LightGoldenrod",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.933303, 0.866697, 0.509789]], 
        StyleBox[
          AdjustmentBox["LightGoldenrod",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.933303, 0.866697, 0.509789]], 
        StyleBox[
          AdjustmentBox["LightGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0.666667]], 
        StyleBox[
          AdjustmentBox["LightPink",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.71371, 0.756909]], 
        StyleBox[
          AdjustmentBox["LightSalmon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.627512, 0.478386]], 
        StyleBox[
          AdjustmentBox["LightSeaGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.125505, 0.698009, 0.666712]], 
        StyleBox[
          AdjustmentBox["LightSkyBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.529412, 0.807797, 0.980407]], 
        StyleBox[
          AdjustmentBox["LightSlateBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.517601, 0.4392, 1]], 
        StyleBox[
          AdjustmentBox["LightSlateGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.466697, 0.533303, 0.6]], 
        StyleBox[
          AdjustmentBox["LightSteelBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.690211, 0.768597, 0.870604]], 
        StyleBox[
          AdjustmentBox["LightViridian",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.429999, 1, 0.439994]], 
        StyleBox[
          AdjustmentBox["LightYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 1, 0.878401]], 
        StyleBox[
          AdjustmentBox["LimeGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.196094, 0.803906, 0.196094]], 
        StyleBox[
          AdjustmentBox["Linen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.980407, 0.941207, 0.902007]], 
        StyleBox[
          AdjustmentBox["Magenta",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0, 1]], 
        StyleBox[
          AdjustmentBox["ManganeseBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.00999466, 0.659998, 0.620005]], 
        StyleBox[
          AdjustmentBox["Maroon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.690211, 0.18819, 0.376501]], 
        StyleBox[
          AdjustmentBox["MarsOrange",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.590005, 0.269993, 0.0800031]], 
        StyleBox[
          AdjustmentBox["MarsYellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.439994, 0.0999924]], 
        StyleBox[
          AdjustmentBox["MediumAquamarine",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.4, 0.803906, 0.666712]], 
        StyleBox[
          AdjustmentBox["MediumBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0, 0.803906]], 
        StyleBox[
          AdjustmentBox["MediumOrchid",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.729412, 0.333288, 0.827497]], 
        StyleBox[
          AdjustmentBox["MediumPurple",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.576501, 0.4392, 0.858808]], 
        StyleBox[
          AdjustmentBox["MediumSeaGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.235294, 0.702007, 0.443091]], 
        StyleBox[
          AdjustmentBox["MediumSlateBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.482399, 0.407797, 0.933303]], 
        StyleBox[
          AdjustmentBox["MediumSpringGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.980407, 0.603906]], 
        StyleBox[
          AdjustmentBox["MediumTurquoise",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.282399, 0.819608, 0.8]], 
        StyleBox[
          AdjustmentBox["MediumVioletRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.780407, 0.0823987, 0.521614]], 
        StyleBox[
          AdjustmentBox["Melon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.659998, 0.409995]], 
        StyleBox[
          AdjustmentBox["MidnightBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.0979934, 0.0979934, 0.4392]], 
        StyleBox[
          AdjustmentBox["Mint",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.740001, 0.990005, 0.790005]], 
        StyleBox[
          AdjustmentBox["MintCream",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.9608, 1, 0.980407]], 
        StyleBox[
          AdjustmentBox["MistyRose",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.894102, 0.882399]], 
        StyleBox[
          AdjustmentBox["Moccasin",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.894102, 0.709804]], 
        StyleBox[
          AdjustmentBox["Navajo",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.870604, 0.678401]], 
        StyleBox[
          AdjustmentBox["Navy",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0, 0.502007]], 
        StyleBox[
          AdjustmentBox["NavyBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0, 0.502007]], 
        StyleBox[
          AdjustmentBox["Oak",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.489998, 0.250004]], 
        StyleBox[
          AdjustmentBox["OldLace",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.992203, 0.9608, 0.902007]], 
        StyleBox[
          AdjustmentBox["Olive",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.229999, 0.370001, 0.170001]], 
        StyleBox[
          AdjustmentBox["OliveDrab",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.419593, 0.556909, 0.137301]], 
        StyleBox[
          AdjustmentBox["Orange",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.500008, 0]], 
        StyleBox[
          AdjustmentBox["OrangeRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.270604, 0]], 
        StyleBox[
          AdjustmentBox["Orchid",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.854902, 0.4392, 0.8392]], 
        StyleBox[
          AdjustmentBox["PaleGoldenrod",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.933303, 0.909804, 0.666712]], 
        StyleBox[
          AdjustmentBox["PaleGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.596109, 0.984298, 0.596109]], 
        StyleBox[
          AdjustmentBox["PaleTurquoise",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.686305, 0.933303, 0.933303]], 
        StyleBox[
          AdjustmentBox["PaleVioletRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.858808, 0.4392, 0.576501]], 
        StyleBox[
          AdjustmentBox["PapayaWhip",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.937301, 0.835309]], 
        StyleBox[
          AdjustmentBox["Peach",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.439994, 0.259998, 0.259998]], 
        StyleBox[
          AdjustmentBox["PeachPuff",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.854902, 0.725505]], 
        StyleBox[
          AdjustmentBox["Peacock",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.2, 0.629999, 0.790005]], 
        StyleBox[
          AdjustmentBox["PermanentGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.0399939, 0.790005, 0.170001]], 
        StyleBox[
          AdjustmentBox["PermanentRedViolet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.859998, 0.149996, 0.269993]], 
        StyleBox[
          AdjustmentBox["Peru",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.803906, 0.521614, 0.247089]], 
        StyleBox[
          AdjustmentBox["Pink",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.752911, 0.796109]], 
        StyleBox[
          AdjustmentBox["Plum",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.866697, 0.627512, 0.866697]], 
        StyleBox[
          AdjustmentBox["PowderBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.690211, 0.878401, 0.902007]], 
        StyleBox[
          AdjustmentBox["PrussianBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.179995, 0.179995, 0.310002]], 
        StyleBox[
          AdjustmentBox["Purple",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.627512, 0.125505, 0.941207]], 
        StyleBox[
          AdjustmentBox["Raspberry",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.530007, 0.149996, 0.340002]], 
        StyleBox[
          AdjustmentBox["RawSienna",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.780011, 0.379995, 0.0800031]], 
        StyleBox[
          AdjustmentBox["RawUmber",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.449989, 0.289998, 0.0699931]], 
        StyleBox[
          AdjustmentBox["Red",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0, 0]], 
        StyleBox[
          AdjustmentBox["RoseMadder",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.209995, 0.219989]], 
        StyleBox[
          AdjustmentBox["RosyBrown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.737301, 0.5608, 0.5608]], 
        StyleBox[
          AdjustmentBox["RoyalBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.254902, 0.411795, 0.882399]], 
        StyleBox[
          AdjustmentBox["SaddleBrown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.545113, 0.270604, 0.0744945]], 
        StyleBox[
          AdjustmentBox["Salmon",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.980407, 0.502007, 0.447089]], 
        StyleBox[
          AdjustmentBox["SandyBrown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.956893, 0.643107, 0.376501]], 
        StyleBox[
          AdjustmentBox["SapGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.18999, 0.500008, 0.0800031]], 
        StyleBox[
          AdjustmentBox["SeaGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.180392, 0.545113, 0.341192]], 
        StyleBox[
          AdjustmentBox["Seashell",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.9608, 0.933303]], 
        StyleBox[
          AdjustmentBox["Sepia",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.370001, 0.149996, 0.0699931]], 
        StyleBox[
          AdjustmentBox["Sienna",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.627512, 0.321599, 0.176501]], 
        StyleBox[
          AdjustmentBox["SkyBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.529412, 0.807797, 0.921599]], 
        StyleBox[
          AdjustmentBox["SlateBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.415686, 0.352895, 0.803906]], 
        StyleBox[
          AdjustmentBox["SlateGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.4392, 0.502007, 0.564706]], 
        StyleBox[
          AdjustmentBox["Smoke",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[0.9608]], 
        StyleBox[
          AdjustmentBox["Snow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.980407, 0.980407]], 
        StyleBox[
          AdjustmentBox["SpringGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 1, 0.497993]], 
        StyleBox[
          AdjustmentBox["SteelBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.274495, 0.509789, 0.705898]], 
        StyleBox[
          AdjustmentBox["TerreVerte",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.219989, 0.370001, 0.0599985]], 
        StyleBox[
          AdjustmentBox["Thistle",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.847105, 0.749004, 0.847105]], 
        StyleBox[
          AdjustmentBox["Titanium",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.990005, 1, 0.940002]], 
        StyleBox[
          AdjustmentBox["Tomato",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 0.38819, 0.278401]], 
        StyleBox[
          AdjustmentBox["Turquoise",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.250996, 0.878401, 0.815702]], 
        StyleBox[
          AdjustmentBox["TurquoiseBlue",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0, 0.780011, 0.550011]], 
        StyleBox[
          AdjustmentBox["Ultramarine",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.0699931, 0.0399939, 0.560006]], 
        StyleBox[
          AdjustmentBox["UltramarineViolet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.359991, 0.140002, 0.429999]], 
        StyleBox[
          AdjustmentBox["VanDykeBrown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.370001, 0.149996, 0.0200046]], 
        StyleBox[
          AdjustmentBox["VenetianRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.829999, 0.0999924, 0.119997]], 
        StyleBox[
          AdjustmentBox["Violet",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.560006, 0.370001, 0.6]], 
        StyleBox[
          AdjustmentBox["VioletRed",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.815702, 0.125505, 0.564706]], 
        StyleBox[
          AdjustmentBox["WarmGray",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.500008, 0.500008, 0.409995]], 
        StyleBox[
          AdjustmentBox["Wheat",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.9608, 0.870604, 0.702007]], 
        StyleBox[
          AdjustmentBox["White",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->GrayLevel[1]], 
        StyleBox[
          AdjustmentBox["Yellow",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[1, 1, 0]], 
        StyleBox[
          AdjustmentBox["YellowBrown",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.859998, 0.579995, 0.439994]], 
        StyleBox[
          AdjustmentBox["YellowGreen",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.603906, 0.803906, 0.196094]], 
        StyleBox[
          AdjustmentBox["YellowOchre",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.889998, 0.510002, 0.0899977]], 
        StyleBox[
          AdjustmentBox["Zinc",
            BoxMargins->{{0, 0}, {1, 1}}],
          FontSize->10,
          Background->RGBColor[0.990005, 0.970001, 1]]}],
      DisplayForm]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Coloring Box Structures", "Section"],

Cell["\<\
This defines a function that randomly colors boxes in an expression.\
\>", "Commentary"],

Cell[BoxData[
    \(RandomColoring[expr_] := 
      \(\((# /. 
              x : \((_RowBox | _FractionBox | _OverscriptBox | _RadicalBox
                       | _SqrtBox | _SubscriptBox | _SubsuperscriptBox
                       | _SuperscriptBox | _UnderoverscriptBox
                       | _UnderscriptBox)\) :> 
                StyleBox[x, Background \[Rule] Hue[Random[], .5]])\)&\)//@
        ToBoxes[expr]\)], "Input"],

Cell["Here is an example.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(RandomColoring[\[Integral]\(1\/\(x\^5 - 1\)\) \[DifferentialD]x] // 
      DisplayForm\)], "Input"],

Cell[BoxData[
    TagBox[
      StyleBox[
        RowBox[{
          StyleBox[
            RowBox[{
              StyleBox[
                RowBox[{"-", 
                  StyleBox[\(1\/5\),
                    Background->RGBColor[0.500008, 1, 0.788602]]}],
                Background->RGBColor[1, 0.530205, 0.500008]], " ", 
              StyleBox[
                SqrtBox[
                  StyleBox[
                    RowBox[{
                      StyleBox[\(1\/2\),
                        Background->RGBColor[0.500008, 0.639643, 1]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{"5", "+", 
                              StyleBox[\(\@5\),
                                Background->RGBColor[0.91368, 0.500008, 1]]}],
                            
                            Background->RGBColor[1, 0.500008, 0.64625]], 
                          ")"}],
                        Background->RGBColor[0.500008, 0.54139, 1]]}],
                    Background->RGBColor[0.500008, 0.688136, 1]]],
                Background->RGBColor[0.694362, 1, 0.500008]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      StyleBox[
                        SqrtBox[
                          StyleBox[
                            FractionBox["2", 
                              StyleBox[
                                RowBox[{"5", "+", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[1, 0.555795, 
                                    0.500008]]}],
                                Background->RGBColor[1, 0.96524, 0.500008]]],
                            Background->RGBColor[0.648386, 0.500008, 1]]],
                        Background->RGBColor[1, 0.500008, 0.918364]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{
                                  StyleBox[\(1\/4\),
                                    Background->RGBColor[0.500008, 1, 
                                    0.787198]], " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[
                                        RowBox[{"1", "-", 
                                        StyleBox[\(\@5\),
                                        Background->RGBColor[0.980194, 
                                        0.500008, 1]]}],
                                        Background->RGBColor[0.517952, 
                                        0.500008, 1]], ")"}],
                                    Background->RGBColor[1, 0.500008, 
                                    0.535378]]}],
                                Background->RGBColor[0.935378, 0.500008, 1]], 
                              "+", "x"}],
                            Background->RGBColor[0.949065, 1, 0.500008]], 
                          ")"}],
                        Background->RGBColor[0.500008, 0.694041, 1]]}],
                    Background->RGBColor[0.526116, 0.500008, 1]], "]"}],
                Background->RGBColor[0.500008, 0.529671, 1]]}],
            Background->RGBColor[1, 0.500008, 0.660182]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/5\),
                Background->RGBColor[0.837842, 0.500008, 1]], " ", 
              StyleBox[
                SqrtBox[
                  StyleBox[
                    RowBox[{
                      StyleBox[\(1\/2\),
                        Background->RGBColor[0.500008, 0.751263, 1]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{"5", "-", 
                              StyleBox[\(\@5\),
                                Background->RGBColor[0.876768, 0.500008, 
                                1]]}],
                            Background->RGBColor[0.500008, 0.893523, 1]], 
                          ")"}],
                        Background->RGBColor[1, 0.614435, 0.500008]]}],
                    Background->RGBColor[0.500008, 0.858137, 1]]],
                Background->RGBColor[0.500008, 1, 0.718547]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      StyleBox[
                        SqrtBox[
                          StyleBox[
                            FractionBox["2", 
                              StyleBox[
                                RowBox[{"5", "-", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[1, 0.500008, 
                                    0.727565]]}],
                                Background->RGBColor[0.500008, 1, 0.590921]]],
                            
                            Background->RGBColor[1, 0.861799, 0.500008]]],
                        Background->RGBColor[1, 0.62855, 0.500008]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{
                                  StyleBox[\(1\/4\),
                                    Background->RGBColor[0.86537, 0.500008, 
                                    1]], " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[
                                        RowBox[{"1", "+", 
                                        StyleBox[\(\@5\),
                                        Background->RGBColor[0.500008, 1, 
                                        0.835691]]}],
                                        Background->RGBColor[0.563729, 1, 
                                        0.500008]], ")"}],
                                    Background->RGBColor[0.500008, 0.842573, 
                                    1]]}],
                                Background->RGBColor[0.500008, 0.764981, 1]], 
                              "+", "x"}],
                            Background->RGBColor[0.780652, 0.500008, 1]], 
                          ")"}],
                        Background->RGBColor[0.815625, 1, 0.500008]]}],
                    Background->RGBColor[0.500008, 0.961608, 1]], "]"}],
                Background->RGBColor[0.500008, 0.734035, 1]]}],
            Background->RGBColor[0.961578, 0.500008, 1]], "+", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/5\),
                Background->RGBColor[1, 0.500008, 0.636774]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{
                      StyleBox[\(-1\),
                        Background->RGBColor[0.700511, 1, 0.500008]], "+", 
                      "x"}],
                    Background->RGBColor[0.859648, 1, 0.500008]], "]"}],
                Background->RGBColor[0.900725, 0.500008, 1]]}],
            Background->RGBColor[0.522652, 1, 0.500008]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/20\),
                Background->RGBColor[1, 0.688899, 0.500008]], " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[
                    RowBox[{"1", "-", 
                      StyleBox[\(\@5\),
                        Background->RGBColor[0.834302, 1, 0.500008]]}],
                    Background->RGBColor[0.500008, 0.913207, 1]], ")"}],
                Background->RGBColor[0.500008, 1, 0.758556]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{
                          StyleBox[\(1\/2\),
                            Background->RGBColor[1, 0.500008, 0.663645]], " ",
                           
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[
                                RowBox[{"1", "-", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[0.500008, 1, 
                                    0.554894]]}],
                                Background->RGBColor[0.550469, 0.500008, 1]], 
                              ")"}],
                            Background->RGBColor[0.648386, 1, 0.500008]], " ",
                           "x"}],
                        Background->RGBColor[0.500008, 1, 0.849531]], "+", 
                      StyleBox[\(x\^2\),
                        Background->RGBColor[1, 0.552117, 0.500008]]}],
                    Background->RGBColor[0.500008, 1, 0.620478]], "]"}],
                Background->RGBColor[1, 0.500008, 0.654505]]}],
            Background->RGBColor[0.500008, 0.590311, 1]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/20\),
                Background->RGBColor[1, 0.932677, 0.500008]], " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[\(\@5\),
                        Background->RGBColor[0.586404, 0.500008, 1]]}],
                    Background->RGBColor[0.724163, 0.500008, 1]], ")"}],
                Background->RGBColor[0.500008, 0.95201, 1]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{
                          StyleBox[\(1\/2\),
                            Background->RGBColor[0.500008, 0.745022, 1]], " ",
                           
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[
                                RowBox[{"1", "+", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[1, 0.500008, 
                                    0.893416]]}],
                                Background->RGBColor[0.500008, 1, 0.774807]], 
                              ")"}],
                            Background->RGBColor[0.850523, 0.500008, 1]], " ",
                           "x"}],
                        Background->RGBColor[0.500008, 0.797147, 1]], "+", 
                      StyleBox[\(x\^2\),
                        Background->RGBColor[0.500008, 0.808759, 1]]}],
                    Background->RGBColor[0.500008, 1, 0.804974]], "]"}],
                Background->RGBColor[1, 0.847761, 0.500008]]}],
            Background->RGBColor[1, 0.500008, 0.715877]]}],
        Background->RGBColor[1, 0.949889, 0.500008]],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["\<\
This defines a function that colors row boxes according to depth.\
\>", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(DepthColoring[expr_] := 
      Module[{b = ToBoxes[expr], d}, d = 2\ Depth[b]; 
        \(\((# /. 
                x : \((_RowBox)\) :> 
                  StyleBox[x, Background \[Rule] Hue[0.78\ Depth[x]/d, .5]])
              \)&\)//@b]\)], "Input"],

Cell[BoxData[
    \(DepthColoring[\[Integral]\(1\/\(x\^5 - 1\)\) \[DifferentialD]x] // 
      DisplayForm\)], "Input",
  CellGroupingRules->"OutputGrouping"],

Cell[BoxData[
    TagBox[
      StyleBox[
        RowBox[{
          StyleBox[
            RowBox[{
              StyleBox[\(-\(1\/5\)\),
                Background->RGBColor[1, 0.734005, 0.500008]], " ", 
              SqrtBox[
                StyleBox[
                  RowBox[{\(1\/2\), " ", 
                    StyleBox[
                      RowBox[{"(", 
                        StyleBox[\(5 + \@5\),
                          Background->RGBColor[1, 0.734005, 0.500008]], ")"}],
                      
                      Background->RGBColor[1, 0.968002, 0.500008]]}],
                  Background->RGBColor[0.798001, 1, 0.500008]]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      SqrtBox[
                        FractionBox["2", 
                          StyleBox[\(5 + \@5\),
                            Background->RGBColor[1, 0.734005, 0.500008]]]], 
                      " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{\(1\/4\), " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[\(1 - \@5\),
                                        Background->RGBColor[1, 0.734005, 
                                        0.500008]], ")"}],
                                    Background->RGBColor[1, 0.968002, 
                                    0.500008]]}],
                                Background->RGBColor[0.798001, 1, 0.500008]], 
                              "+", "x"}],
                            Background->RGBColor[0.564004, 1, 0.500008]], 
                          ")"}],
                        Background->RGBColor[0.500008, 1, 0.669993]]}],
                    Background->RGBColor[0.500008, 1, 0.904005]], "]"}],
                Background->RGBColor[0.500008, 0.861997, 1]]}],
            Background->RGBColor[0.500008, 0.628, 1]], "-", 
          StyleBox[
            RowBox[{\(1\/5\), " ", 
              SqrtBox[
                StyleBox[
                  RowBox[{\(1\/2\), " ", 
                    StyleBox[
                      RowBox[{"(", 
                        StyleBox[\(5 - \@5\),
                          Background->RGBColor[1, 0.734005, 0.500008]], ")"}],
                      
                      Background->RGBColor[1, 0.968002, 0.500008]]}],
                  Background->RGBColor[0.798001, 1, 0.500008]]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      SqrtBox[
                        FractionBox["2", 
                          StyleBox[\(5 - \@5\),
                            Background->RGBColor[1, 0.734005, 0.500008]]]], 
                      " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{\(1\/4\), " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[\(1 + \@5\),
                                        Background->RGBColor[1, 0.734005, 
                                        0.500008]], ")"}],
                                    Background->RGBColor[1, 0.968002, 
                                    0.500008]]}],
                                Background->RGBColor[0.798001, 1, 0.500008]], 
                              "+", "x"}],
                            Background->RGBColor[0.564004, 1, 0.500008]], 
                          ")"}],
                        Background->RGBColor[0.500008, 1, 0.669993]]}],
                    Background->RGBColor[0.500008, 1, 0.904005]], "]"}],
                Background->RGBColor[0.500008, 0.861997, 1]]}],
            Background->RGBColor[0.500008, 0.628, 1]], "+", 
          StyleBox[
            RowBox[{\(1\/5\), " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{
                      StyleBox[\(-1\),
                        Background->RGBColor[1, 0.675502, 0.500008]], "+", 
                      "x"}],
                    Background->RGBColor[1, 0.909499, 0.500008]], "]"}],
                Background->RGBColor[0.856504, 1, 0.500008]]}],
            Background->RGBColor[0.622507, 1, 0.500008]], "-", 
          StyleBox[
            RowBox[{\(1\/20\), " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[\(1 - \@5\),
                    Background->RGBColor[1, 0.734005, 0.500008]], ")"}],
                Background->RGBColor[1, 0.968002, 0.500008]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{\(1\/2\), " ", 
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[\(1 - \@5\),
                                Background->RGBColor[1, 0.734005, 0.500008]], 
                              ")"}],
                            Background->RGBColor[1, 0.968002, 0.500008]], " ",
                           "x"}],
                        Background->RGBColor[0.798001, 1, 0.500008]], "+", 
                      \(x\^2\)}],
                    Background->RGBColor[0.564004, 1, 0.500008]], "]"}],
                Background->RGBColor[0.500008, 1, 0.669993]]}],
            Background->RGBColor[0.500008, 1, 0.904005]], "-", 
          StyleBox[
            RowBox[{\(1\/20\), " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[\(1 + \@5\),
                    Background->RGBColor[1, 0.734005, 0.500008]], ")"}],
                Background->RGBColor[1, 0.968002, 0.500008]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{\(1\/2\), " ", 
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[\(1 + \@5\),
                                Background->RGBColor[1, 0.734005, 0.500008]], 
                              ")"}],
                            Background->RGBColor[1, 0.968002, 0.500008]], " ",
                           "x"}],
                        Background->RGBColor[0.798001, 1, 0.500008]], "+", 
                      \(x\^2\)}],
                    Background->RGBColor[0.564004, 1, 0.500008]], "]"}],
                Background->RGBColor[0.500008, 1, 0.669993]]}],
            Background->RGBColor[0.500008, 1, 0.904005]]}],
        Background->RGBColor[0.605997, 0.500008, 1]],
      DisplayForm]], "Output"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(\(boxtypes
       = {RowBox, FractionBox, OverscriptBox, RadicalBox, SqrtBox, 
        SubscriptBox, SubsuperscriptBox, SuperscriptBox, UnderoverscriptBox, 
        UnderscriptBox}; \)\)], "Input"],

Cell[BoxData[
    \(\(boxrules = 
      MapIndexed[
        \((#[x__] -> 
              StyleBox[#[x], 
                Background -> Hue[N[First[#2]/Length[boxtypes]], .8]])\)&, 
        boxtypes]; \)\)], "Input",
  CellGroupingRules->"OutputGrouping"]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
    \(TypeColoring[expr_] := \((#1 /. boxrules&)\)//@ToBoxes[expr]\)], "Input"],

Cell[BoxData[
    \(TypeColoring[\[Integral]\(1\/\(x\^5 - 1\)\) \[DifferentialD]x] // 
      DisplayForm\)], "Input",
  CellGroupingRules->"OutputGrouping"],

Cell[BoxData[
    TagBox[
      StyleBox[
        RowBox[{
          StyleBox[
            RowBox[{
              StyleBox[
                RowBox[{"-", 
                  StyleBox[\(1\/5\),
                    Background->RGBColor[0.839994, 1, 0.2]]}],
                Background->RGBColor[1, 0.680003, 0.2]], " ", 
              StyleBox[
                SqrtBox[
                  StyleBox[
                    RowBox[{
                      StyleBox[\(1\/2\),
                        Background->RGBColor[0.839994, 1, 0.2]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{"5", "+", 
                              StyleBox[\(\@5\),
                                Background->RGBColor[0.2, 1, 1]]}],
                            Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                        Background->RGBColor[1, 0.680003, 0.2]]}],
                    Background->RGBColor[1, 0.680003, 0.2]]],
                Background->RGBColor[0.2, 1, 1]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      StyleBox[
                        SqrtBox[
                          StyleBox[
                            FractionBox["2", 
                              StyleBox[
                                RowBox[{"5", "+", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[0.2, 1, 1]]}],
                                Background->RGBColor[1, 0.680003, 0.2]]],
                            Background->RGBColor[0.839994, 1, 0.2]]],
                        Background->RGBColor[0.2, 1, 1]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{
                                  StyleBox[\(1\/4\),
                                    Background->RGBColor[0.839994, 1, 0.2]], 
                                  " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[
                                        RowBox[{"1", "-", 
                                        StyleBox[\(\@5\),
                                        Background->RGBColor[0.2, 1, 1]]}],
                                        Background->RGBColor[1, 0.680003, 
                                        0.2]], ")"}],
                                    Background->RGBColor[1, 0.680003, 0.2]]}],
                                
                                Background->RGBColor[1, 0.680003, 0.2]], "+", 
                              "x"}],
                            Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                        Background->RGBColor[1, 0.680003, 0.2]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], "]"}],
                Background->RGBColor[1, 0.680003, 0.2]]}],
            Background->RGBColor[1, 0.680003, 0.2]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/5\),
                Background->RGBColor[0.839994, 1, 0.2]], " ", 
              StyleBox[
                SqrtBox[
                  StyleBox[
                    RowBox[{
                      StyleBox[\(1\/2\),
                        Background->RGBColor[0.839994, 1, 0.2]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{"5", "-", 
                              StyleBox[\(\@5\),
                                Background->RGBColor[0.2, 1, 1]]}],
                            Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                        Background->RGBColor[1, 0.680003, 0.2]]}],
                    Background->RGBColor[1, 0.680003, 0.2]]],
                Background->RGBColor[0.2, 1, 1]], " ", 
              StyleBox[
                RowBox[{"ArcTan", "[", 
                  StyleBox[
                    RowBox[{"2", " ", 
                      StyleBox[
                        SqrtBox[
                          StyleBox[
                            FractionBox["2", 
                              StyleBox[
                                RowBox[{"5", "-", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[0.2, 1, 1]]}],
                                Background->RGBColor[1, 0.680003, 0.2]]],
                            Background->RGBColor[0.839994, 1, 0.2]]],
                        Background->RGBColor[0.2, 1, 1]], " ", 
                      StyleBox[
                        RowBox[{"(", 
                          StyleBox[
                            RowBox[{
                              StyleBox[
                                RowBox[{
                                  StyleBox[\(1\/4\),
                                    Background->RGBColor[0.839994, 1, 0.2]], 
                                  " ", 
                                  StyleBox[
                                    RowBox[{"(", 
                                      StyleBox[
                                        RowBox[{"1", "+", 
                                        StyleBox[\(\@5\),
                                        Background->RGBColor[0.2, 1, 1]]}],
                                        Background->RGBColor[1, 0.680003, 
                                        0.2]], ")"}],
                                    Background->RGBColor[1, 0.680003, 0.2]]}],
                                
                                Background->RGBColor[1, 0.680003, 0.2]], "+", 
                              "x"}],
                            Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                        Background->RGBColor[1, 0.680003, 0.2]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], "]"}],
                Background->RGBColor[1, 0.680003, 0.2]]}],
            Background->RGBColor[1, 0.680003, 0.2]], "+", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/5\),
                Background->RGBColor[0.839994, 1, 0.2]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{
                      StyleBox[\(-1\),
                        Background->RGBColor[1, 0.680003, 0.2]], "+", "x"}],
                    Background->RGBColor[1, 0.680003, 0.2]], "]"}],
                Background->RGBColor[1, 0.680003, 0.2]]}],
            Background->RGBColor[1, 0.680003, 0.2]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/20\),
                Background->RGBColor[0.839994, 1, 0.2]], " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[
                    RowBox[{"1", "-", 
                      StyleBox[\(\@5\),
                        Background->RGBColor[0.2, 1, 1]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                Background->RGBColor[1, 0.680003, 0.2]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{
                          StyleBox[\(1\/2\),
                            Background->RGBColor[0.839994, 1, 0.2]], " ", 
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[
                                RowBox[{"1", "-", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[0.2, 1, 1]]}],
                                Background->RGBColor[1, 0.680003, 0.2]], 
                              ")"}],
                            Background->RGBColor[1, 0.680003, 0.2]], " ", 
                          "x"}],
                        Background->RGBColor[1, 0.680003, 0.2]], "+", 
                      StyleBox[\(x\^2\),
                        Background->RGBColor[0.839994, 0.2, 1]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], "]"}],
                Background->RGBColor[1, 0.680003, 0.2]]}],
            Background->RGBColor[1, 0.680003, 0.2]], "-", 
          StyleBox[
            RowBox[{
              StyleBox[\(1\/20\),
                Background->RGBColor[0.839994, 1, 0.2]], " ", 
              StyleBox[
                RowBox[{"(", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[\(\@5\),
                        Background->RGBColor[0.2, 1, 1]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], ")"}],
                Background->RGBColor[1, 0.680003, 0.2]], " ", 
              StyleBox[
                RowBox[{"Log", "[", 
                  StyleBox[
                    RowBox[{"1", "+", 
                      StyleBox[
                        RowBox[{
                          StyleBox[\(1\/2\),
                            Background->RGBColor[0.839994, 1, 0.2]], " ", 
                          StyleBox[
                            RowBox[{"(", 
                              StyleBox[
                                RowBox[{"1", "+", 
                                  StyleBox[\(\@5\),
                                    Background->RGBColor[0.2, 1, 1]]}],
                                Background->RGBColor[1, 0.680003, 0.2]], 
                              ")"}],
                            Background->RGBColor[1, 0.680003, 0.2]], " ", 
                          "x"}],
                        Background->RGBColor[1, 0.680003, 0.2]], "+", 
                      StyleBox[\(x\^2\),
                        Background->RGBColor[0.839994, 0.2, 1]]}],
                    Background->RGBColor[1, 0.680003, 0.2]], "]"}],
                Background->RGBColor[1, 0.680003, 0.2]]}],
            Background->RGBColor[1, 0.680003, 0.2]]}],
        Background->RGBColor[1, 0.680003, 0.2]],
      DisplayForm]], "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{

Cell["Visual Bracket Matching", "Section"],

Cell["\<\
This finds pairs of brackets in an expression, applying a \
transformation to them.\
\>", "Commentary"],

Cell[BoxData[
    \(TransformBrackets[f_, expr_] := 
      DisplayForm[FindBrackets[ToBoxes[expr], f]]\)], "Input"],

Cell[BoxData[
    \(FindBrackets[startexpr_, f_] := \n\t
      Fold[Function[{expr, \ location}, \n\t\t
          ReplacePart[expr, 
            f[expr\[LeftDoubleBracket]Sequence\ @@\ location
                  \[RightDoubleBracket], Length[location]], location]], 
        startexpr, \n\t\t
        Sort[Position[startexpr, \ 
            RowBox[{a___, "\<{\>"\  | \ "\<[\>"\  | \ "\<(\>", \ b__, \ 
                "\<]\>"\  | \ "\<}\>"\  | \ "\<)\>", \ c___}]], \ 
          Length[#1]\  > \ Length[#2]&]]\)], "Input"],

Cell["\<\
This defines a function that resizes brackets according to their \
depth.\
\>", "Commentary"],

Cell[BoxData[
    \(SizeBrackets[expr_] := 
      TransformBrackets[
        StyleBox[#1, SpanMinSize \[Rule] \((#2 - 2)\), \n\t\t\t\t\t
            SpanMaxSize\  \[Rule] \ \((#2 - 2)\)]&, expr]\)], "Input"],

Cell["Here is an expression with a range of levels.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(NestList[f, x, 5]\)], "Input"],

Cell[BoxData[
    \({x, f[x], f[f[x]], f[f[f[x]]], f[f[f[f[x]]]], f[f[f[f[f[x]]]]]}\)], 
  "Output"]
}, Open  ]],

Cell["\<\
This shows brackets at different levels with different sizes.\
\>", 
  "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(SizeBrackets[%]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{"x", ",", 
          StyleBox[\(f[x]\),
            SpanMinSize->2,
            SpanMaxSize->2], ",", 
          StyleBox[
            RowBox[{"f", "[", 
              StyleBox[\(f[x]\),
                SpanMinSize->4,
                SpanMaxSize->4], "]"}],
            SpanMinSize->2,
            SpanMaxSize->2], ",", 
          StyleBox[
            RowBox[{"f", "[", 
              StyleBox[
                RowBox[{"f", "[", 
                  StyleBox[\(f[x]\),
                    SpanMinSize->6,
                    SpanMaxSize->6], "]"}],
                SpanMinSize->4,
                SpanMaxSize->4], "]"}],
            SpanMinSize->2,
            SpanMaxSize->2], ",", 
          StyleBox[
            RowBox[{"f", "[", 
              StyleBox[
                RowBox[{"f", "[", 
                  StyleBox[
                    RowBox[{"f", "[", 
                      StyleBox[\(f[x]\),
                        SpanMinSize->8,
                        SpanMaxSize->8], "]"}],
                    SpanMinSize->6,
                    SpanMaxSize->6], "]"}],
                SpanMinSize->4,
                SpanMaxSize->4], "]"}],
            SpanMinSize->2,
            SpanMaxSize->2], ",", 
          StyleBox[
            RowBox[{"f", "[", 
              StyleBox[
                RowBox[{"f", "[", 
                  StyleBox[
                    RowBox[{"f", "[", 
                      StyleBox[
                        RowBox[{"f", "[", 
                          StyleBox[\(f[x]\),
                            SpanMinSize->10,
                            SpanMaxSize->10], "]"}],
                        SpanMinSize->8,
                        SpanMaxSize->8], "]"}],
                    SpanMinSize->6,
                    SpanMaxSize->6], "]"}],
                SpanMinSize->4,
                SpanMaxSize->4], "]"}],
            SpanMinSize->2,
            SpanMaxSize->2]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["\<\
This defines a function that colors successive levels of bracketing \
differently.\
\>", "Commentary"],

Cell[BoxData[
    \(ColorBrackets[expr_] := 
      TransformBrackets[
        StyleBox[AdjustmentBox[#1, BoxMargins \[Rule] {{0, 0}, {.5, .5}}], \ 
            Background \[Rule] Hue[Mod[N[#2/10], 1], .5]]&, expr]\)], "Input"],

Cell["Here is an example.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(ColorBrackets[NestList[f, x, 5]]\)], "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{"{", 
        RowBox[{"x", ",", 
          StyleBox[
            AdjustmentBox[\(f[x]\),
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], ",", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"f", "[", 
                StyleBox[
                  AdjustmentBox[\(f[x]\),
                    BoxMargins->{{0, 0}, {0.5, 0.5}}],
                  Background->RGBColor[0.500008, 0.700008, 1]], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], ",", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"f", "[", 
                StyleBox[
                  AdjustmentBox[
                    RowBox[{"f", "[", 
                      StyleBox[
                        AdjustmentBox[\(f[x]\),
                          BoxMargins->{{0, 0}, {0.5, 0.5}}],
                        Background->RGBColor[0.900008, 0.500008, 1]], "]"}],
                    BoxMargins->{{0, 0}, {0.5, 0.5}}],
                  Background->RGBColor[0.500008, 0.700008, 1]], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], ",", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"f", "[", 
                StyleBox[
                  AdjustmentBox[
                    RowBox[{"f", "[", 
                      StyleBox[
                        AdjustmentBox[
                          RowBox[{"f", "[", 
                            StyleBox[
                              AdjustmentBox[\(f[x]\),
                                BoxMargins->{{0, 0}, {0.5, 0.5}}],
                              Background->RGBColor[1, 0.500008, 0.500008]], 
                            "]"}],
                          BoxMargins->{{0, 0}, {0.5, 0.5}}],
                        Background->RGBColor[0.900008, 0.500008, 1]], "]"}],
                    BoxMargins->{{0, 0}, {0.5, 0.5}}],
                  Background->RGBColor[0.500008, 0.700008, 1]], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], ",", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"f", "[", 
                StyleBox[
                  AdjustmentBox[
                    RowBox[{"f", "[", 
                      StyleBox[
                        AdjustmentBox[
                          RowBox[{"f", "[", 
                            StyleBox[
                              AdjustmentBox[
                                RowBox[{"f", "[", 
                                  StyleBox[
                                    AdjustmentBox[\(f[x]\),
                                      BoxMargins->{{0, 0}, {0.5, 0.5}}],
                                    Background->RGBColor[0.900008, 1, 
                                    0.500008]], "]"}],
                                BoxMargins->{{0, 0}, {0.5, 0.5}}],
                              Background->RGBColor[1, 0.500008, 0.500008]], 
                            "]"}],
                          BoxMargins->{{0, 0}, {0.5, 0.5}}],
                        Background->RGBColor[0.900008, 0.500008, 1]], "]"}],
                    BoxMargins->{{0, 0}, {0.5, 0.5}}],
                  Background->RGBColor[0.500008, 0.700008, 1]], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}], "}"}],
      DisplayForm]], "Output"]
}, Open  ]],

Cell["Here is another example.", "Commentary"],

Cell[CellGroupData[{

Cell[BoxData[
    \(ColorBrackets[\[Integral]\(1\/\(x\^5 - 1\)\) \[DifferentialD]x]\)], 
  "Input"],

Cell[BoxData[
    TagBox[
      RowBox[{
        RowBox[{\(-\(1\/5\)\), " ", 
          SqrtBox[
            RowBox[{\(1\/2\), " ", 
              StyleBox[
                AdjustmentBox[\((5 + \@5)\),
                  BoxMargins->{{0, 0}, {0.5, 0.5}}],
                Background->RGBColor[0.6, 0.500008, 1]]}]], " ", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"ArcTan", "[", 
                RowBox[{"2", " ", \(\@\(2\/\(5 + \@5\)\)\), " ", 
                  StyleBox[
                    AdjustmentBox[
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{\(1\/4\), " ", 
                            StyleBox[
                              AdjustmentBox[\((1 - \@5)\),
                                BoxMargins->{{0, 0}, {0.5, 0.5}}],
                              Background->RGBColor[0.500008, 1, 0.699992]]}], 
                          "+", "x"}], ")"}],
                      BoxMargins->{{0, 0}, {0.5, 0.5}}],
                    Background->RGBColor[0.900008, 0.500008, 1]]}], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}], "-", 
        RowBox[{\(1\/5\), " ", 
          SqrtBox[
            RowBox[{\(1\/2\), " ", 
              StyleBox[
                AdjustmentBox[\((5 - \@5)\),
                  BoxMargins->{{0, 0}, {0.5, 0.5}}],
                Background->RGBColor[0.6, 0.500008, 1]]}]], " ", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"ArcTan", "[", 
                RowBox[{"2", " ", \(\@\(2\/\(5 - \@5\)\)\), " ", 
                  StyleBox[
                    AdjustmentBox[
                      RowBox[{"(", 
                        RowBox[{
                          RowBox[{\(1\/4\), " ", 
                            StyleBox[
                              AdjustmentBox[\((1 + \@5)\),
                                BoxMargins->{{0, 0}, {0.5, 0.5}}],
                              Background->RGBColor[0.500008, 1, 0.699992]]}], 
                          "+", "x"}], ")"}],
                      BoxMargins->{{0, 0}, {0.5, 0.5}}],
                    Background->RGBColor[0.900008, 0.500008, 1]]}], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}], "+", 
        RowBox[{\(1\/5\), " ", 
          StyleBox[
            AdjustmentBox[\(Log[\(-1\) + x]\),
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}], "-", 
        RowBox[{\(1\/20\), " ", 
          StyleBox[
            AdjustmentBox[\((1 - \@5)\),
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], " ", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"Log", "[", 
                RowBox[{"1", "+", 
                  RowBox[{\(1\/2\), " ", 
                    StyleBox[
                      AdjustmentBox[\((1 - \@5)\),
                        BoxMargins->{{0, 0}, {0.5, 0.5}}],
                      Background->RGBColor[1, 0.500008, 0.500008]], " ", 
                    "x"}], "+", \(x\^2\)}], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}], "-", 
        RowBox[{\(1\/20\), " ", 
          StyleBox[
            AdjustmentBox[\((1 + \@5)\),
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]], " ", 
          StyleBox[
            AdjustmentBox[
              RowBox[{"Log", "[", 
                RowBox[{"1", "+", 
                  RowBox[{\(1\/2\), " ", 
                    StyleBox[
                      AdjustmentBox[\((1 + \@5)\),
                        BoxMargins->{{0, 0}, {0.5, 0.5}}],
                      Background->RGBColor[1, 0.500008, 0.500008]], " ", 
                    "x"}], "+", \(x\^2\)}], "]"}],
              BoxMargins->{{0, 0}, {0.5, 0.5}}],
            Background->RGBColor[0.500008, 1, 0.700008]]}]}],
      DisplayForm]], "Output"]
}, Open  ]]
}, Closed]]
},
FrontEndVersion->"4.0 for X",
ScreenRectangle->{{0, 1024}, {0, 768}},
WindowSize->{439, 262},
WindowMargins->{{255, Automatic}, {Automatic, 63}},
StyleDefinitions -> "Demo.nb"
]


(***********************************************************************
Cached data follows.  If you edit this Notebook file directly, not using
Mathematica, you must remove the line containing CacheID at the top of 
the file.  The cache data will then be recreated when you save this file 
from within Mathematica.
***********************************************************************)

(*CellTagsOutline
CellTagsIndex->{}
*)

(*CellTagsIndex
CellTagsIndex->{}
*)

(*NotebookFileOutline
Notebook[{
Cell[1717, 49, 14635, 185, 24, 14455, 179, "GraphicsData", 
"Bitmap", "HeaderCell",
  Evaluatable->False],
Cell[16355, 236, 126, 5, 119, "Title"],
Cell[16484, 243, 175, 5, 37, "Subtitle"],

Cell[CellGroupData[{
Cell[16684, 252, 40, 0, 73, "Section"],
Cell[16727, 254, 78, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[16830, 258, 69, 1, 37, "Input"],
Cell[16902, 261, 274, 5, 179, "Output"]
}, Open  ]],
Cell[17191, 269, 112, 3, 45, "Commentary"],

Cell[CellGroupData[{
Cell[17328, 276, 81, 1, 54, "Input"],
Cell[17412, 279, 375, 7, 154, "Output"]
}, Open  ]],
Cell[17802, 289, 65, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[17892, 293, 131, 2, 74, "Input"],
Cell[18026, 297, 1865, 46, 136, "Output"]
}, Open  ]],
Cell[19906, 346, 65, 0, 30, "Text"],

Cell[CellGroupData[{
Cell[19996, 350, 93, 1, 74, "Input"],
Cell[20092, 353, 857, 13, 145, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[20998, 372, 46, 0, 41, "Section"],
Cell[21047, 374, 126, 5, 30, "Commentary"],

Cell[CellGroupData[{
Cell[21198, 383, 50, 1, 35, "Input"],
Cell[21251, 386, 149, 2, 71, "Output"]
}, Open  ]],
Cell[21415, 391, 74, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[21514, 395, 51, 1, 34, "Input"],
Cell[21568, 398, 588, 10, 276, "Output"]
}, Open  ]],
Cell[22171, 411, 99, 3, 30, "Commentary"],

Cell[CellGroupData[{
Cell[22295, 418, 91, 1, 54, "Input"],
Cell[22389, 421, 194, 4, 85, "Output"]
}, Open  ]],
Cell[22598, 428, 72, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[22695, 432, 110, 2, 54, "Input"],
Cell[22808, 436, 1137, 37, 215, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[23994, 479, 34, 0, 41, "Section"],
Cell[24031, 481, 79, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[24135, 485, 111, 2, 54, "Input"],
Cell[24249, 489, 3927, 124, 201, "Output"]
}, Open  ]],
Cell[28191, 616, 78, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[28294, 620, 155, 3, 92, "Input"],
Cell[28452, 625, 1582, 47, 192, "Output"]
}, Open  ]],
Cell[30049, 675, 78, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[30152, 679, 145, 3, 74, "Input"],
Cell[30300, 684, 5910, 124, 124, "Output"]
}, Open  ]],
Cell[36225, 811, 113, 3, 45, "Commentary"],
Cell[36341, 816, 440, 9, 154, "Input"],
Cell[36784, 827, 107, 3, 30, "Commentary"],

Cell[CellGroupData[{
Cell[36916, 834, 146, 3, 94, "Input"],
Cell[37065, 839, 3540, 118, 25, "Print"],
Cell[40608, 959, 3549, 118, 25, "Print"],
Cell[44160, 1079, 3533, 118, 25, "Print"],
Cell[47696, 1199, 3543, 118, 25, "Print"],
Cell[51242, 1319, 3537, 118, 25, "Print"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[54828, 1443, 39, 0, 41, "Section"],
Cell[54870, 1445, 108, 3, 45, "Commentary"],

Cell[CellGroupData[{
Cell[55003, 1452, 151, 3, 89, "Input"],
Cell[55157, 1457, 2097, 49, 260, "Output"]
}, Open  ]],
Cell[57269, 1509, 113, 3, 45, "Commentary"],

Cell[CellGroupData[{
Cell[57407, 1516, 62, 1, 34, "Input"],
Cell[57472, 1519, 249, 5, 134, "Input",
  CellGroupingRules->"OutputGrouping"],
Cell[57724, 1526, 35363, 973, 818, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[93136, 2505, 42, 0, 41, "Section"],
Cell[93181, 2507, 98, 2, 30, "Commentary"],
Cell[93282, 2511, 429, 8, 214, "Input"],
Cell[93714, 2521, 41, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[93780, 2525, 119, 2, 46, "Input"],
Cell[93902, 2529, 11160, 231, 307, "Output"]
}, Open  ]],
Cell[105077, 2763, 95, 2, 30, "Commentary"],

Cell[CellGroupData[{
Cell[105197, 2769, 271, 6, 114, "Input"],
Cell[105471, 2777, 157, 3, 46, "Input",
  CellGroupingRules->"OutputGrouping"],
Cell[105631, 2782, 7101, 153, 307, "Output"]
}, Open  ]],

Cell[CellGroupData[{
Cell[112769, 2940, 217, 4, 94, "Input"],
Cell[112989, 2946, 253, 7, 114, "Input",
  CellGroupingRules->"OutputGrouping"]
}, Open  ]],

Cell[CellGroupData[{
Cell[113279, 2958, 93, 1, 54, "Input"],
Cell[113375, 2961, 156, 3, 46, "Input",
  CellGroupingRules->"OutputGrouping"],
Cell[113534, 2966, 10176, 215, 307, "Output"]
}, Open  ]]
}, Closed]],

Cell[CellGroupData[{
Cell[123759, 3187, 42, 0, 41, "Section"],
Cell[123804, 3189, 113, 3, 45, "Commentary"],
Cell[123920, 3194, 115, 2, 54, "Input"],
Cell[124038, 3198, 522, 10, 214, "Input"],
Cell[124563, 3210, 103, 3, 30, "Commentary"],
Cell[124669, 3215, 207, 4, 74, "Input"],
Cell[124879, 3221, 67, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[124971, 3225, 50, 1, 34, "Input"],
Cell[125024, 3228, 100, 2, 67, "Output"]
}, Open  ]],
Cell[125139, 3233, 94, 3, 30, "Commentary"],

Cell[CellGroupData[{
Cell[125258, 3240, 48, 1, 34, "Input"],
Cell[125309, 3243, 1998, 59, 233, "Output"]
}, Open  ]],
Cell[127322, 3305, 112, 3, 45, "Commentary"],
Cell[127437, 3310, 226, 4, 114, "Input"],
Cell[127666, 3316, 41, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[127732, 3320, 65, 1, 34, "Input"],
Cell[127800, 3323, 3526, 77, 116, "Output"]
}, Open  ]],
Cell[131341, 3403, 46, 0, 30, "Commentary"],

Cell[CellGroupData[{
Cell[131412, 3407, 99, 2, 46, "Input"],
Cell[131514, 3411, 4064, 92, 337, "Output"]
}, Open  ]]
}, Closed]]
}
]
*)




(***********************************************************************
End of Mathematica Notebook file.
***********************************************************************)

