This is a multi-part message in MIME format.

------=_NextPart_000_0001_01C243EE.E75526B0
Content-Type: text/plain;
        charset="us-ascii"
Content-Transfer-Encoding: 7bit

Brendan Moran wrote:
.
.
> Sounds like we basically had the same idea.
>
> >Brendan Moran wrote:
> > > Has anyone considered making normalized dice?
.
.

 Brendan,
 I've made just for fun a simple program in Excel XP
showing how my idea works. Attached file: Excel XP
book Russian version may not work with English Excel.
And there is a virus risk during transmission, so
I pasted code below. If someone is interested in it,
he could paste the code into Excel sheet VB module.
(Open VBA editor, click Sheet1).
 It will work on activating the sheet (just open
another sheet and then return to this one).

        Mike.
----------------------



'   RE: [PIC] Random sequence
'   How to get randomly-biased dice number.
'
'   1. Associate six registers with six dice numbers.
'   2. Init them with lngRegMaxValue/2.
'   3. On each loop subtract 5 from  that register which
'      number was hit until it reached 0, of course.
'      And add 1 to other registers until they reached 255.
'   4. Get Sum of the registers.
'   5. Get random value from 1 to the Sum.
'   6. Summarize register values until this sum reached
'      previous "The Sum". Last register's number involved
'      with this summarizing is the "randomly-biased dice
'      number".
'   7. Go to "3."

Option Explicit

Private Const lngRegMaxValue  As Long = 255
Private Const lngNumberOfSteps  As Long = 1000

Private Sub Worksheet_Activate()
   Dim i As Long

    Cells.Select
    Selection.ClearContents       'Clear Worksheet
    Range("A1").Select

    SetInitialValues

    For i = 4 To lngNumberOfSteps
      RefreshRegs i
      Cells(i, 7) = GetRegSum(i)
      Cells(i, 8) = GetRndOfSum(i)
      Cells(i, 9) = GetDiceNumber(i)
      RefreshHits i
    Next i
End Sub

Private Sub SetInitialValues()

  Cells(1, 1) = "Biased Dice"

  ' Register associated with the Dice number 1
  Cells(2, 1) = "Reg1"
  ' Register associated with the Dice number 2
  Cells(2, 2) = "Reg2"
  ' Register associated with the Dice number 3
  Cells(2, 3) = "Reg3"
  ' Register associated with the Dice number 4
  Cells(2, 4) = "Reg4"
  ' Register associated with the Dice number 5
  Cells(2, 5) = "Reg5"
  ' Register associated with the Dice number 6
  Cells(2, 6) = "Reg6"
  ' Sum of the previous six cells
  Cells(2, 7) = "RegSum"
  ' Random value from 1 to previous cell value
  Cells(2, 8) = "RndOfSum"
  ' Dice number that was hitted
  Cells(2, 9) = "Dice"
  ' Number of hitts of the Dice number 1
  Cells(2, 10) = "HitsD1"
  ' Number of hitts of the Dice number 2
  Cells(2, 11) = "HitsD2"
  ' Number of hitts of the Dice number 3
  Cells(2, 12) = "HitsD3"
  ' Number of hitts of the Dice number 4
  Cells(2, 13) = "HitsD4"
  ' Number of hitts of the Dice number 5
  Cells(2, 14) = "HitsD5"
  ' Number of hitts of the Dice number 6
  Cells(2, 15) = "HitsD6"

  Cells(3, 1) = Int(lngRegMaxValue / 2) + 1
  Cells(3, 2) = Cells(3, 1)
  Cells(3, 3) = Cells(3, 1)
  Cells(3, 4) = Cells(3, 1)
  Cells(3, 5) = Cells(3, 1)
  Cells(3, 6) = Cells(3, 1)
  Cells(3, 7) = GetRegSum(3)
  Cells(3, 8) = GetRndOfSum(3)
  Cells(3, 9) = GetDiceNumber(3)
  RefreshHits 3
End Sub

Private Function GetRegSum( _
   lngRow As Long) As Long
   Dim i As Long
   For i = 1 To 6
      GetRegSum = GetRegSum + Cells(lngRow, i)
   Next i
End Function


Private Function GetRndOfSum( _
   lngRow As Long) As Long
   GetRndOfSum = Int(Rnd * Cells(lngRow, 7)) + 1
End Function

Private Function GetDiceNumber( _
   lngRow As Long) As Long
   Dim i As Long, lngTmpSum As Long

   For i = 1 To 6
      lngTmpSum = lngTmpSum + Cells(lngRow, i)
      If lngTmpSum >= Cells(lngRow, 8) Then
         GetDiceNumber = i
         Exit Function
      End If
   Next i
End Function

Private Sub RefreshRegs(lngRow As Long)
   Dim i As Long

   For i = 1 To 6
      If i = Cells(lngRow - 1, 9) Then
         Cells(lngRow, i) = Cells(lngRow - 1, i) - 5
         If Cells(lngRow, i) < 0 Then Cells(lngRow, i) = 0
      Else
         Cells(lngRow, i) = Cells(lngRow - 1, i) + 1
         If Cells(lngRow, i) > lngRegMaxValue Then
            Cells(lngRow, i) = lngRegMaxValue
         End If
      End If
   Next i
End Sub

Private Sub RefreshHits(lngRow As Long)
   Dim i As Long

   For i = 1 To 6
      Cells(lngRow, 9 + i) = Val(Cells(lngRow - 1, 9 + i))
   Next i

   Cells(lngRow, 9 + Cells(lngRow, 9)) = _
      Cells(lngRow, 9 + Cells(lngRow, 9)) + 1
End Sub



------=_NextPart_000_0001_01C243EE.E75526B0
Content-Type: application/x-compressed;
        name="BiasedDice.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
        filename="BiasedDice.zip"

UEsDBBQAAAAIAO21Di2l9mW6wzAAAACQAAAOAAAAQmlhc2VkRGljZS54bHPsW31sHMd1f7u3JO/I
I3WkKJt2ZGlNyRGtD/pI6oOyJetEStHZlSWWkm22tiueyJN4MkWeeUeZlu2G8gciF3ZB2ILBogki
A0WrtjIiA4GiBkZLG/2DdRyEbYxCCFKYbg2HRVNUUROABWxd328+bnfv9iRSKRKk7RDv5u1vZ968
efPmzczucuYHtbNvvXP7J1SQ7qcAXcuFqNyFGYpEihCZnAWYruVyOQ3n/j/9RqUvmEI8bs1MFlMZ
E8a8ginIVMkUZapi+jJTNdOXmJZIF6BapjqmpUz1TMuYbmG6lamB6Tam25nCTMuZ7mBawbSSyWa6
k6mRaRXTaqa7SPrTGs6bmO5mWsu0jmk90wame5hiTC1M25lamdqYNjJtYtrMtIWpnWkr071M9zFt
I/g10W6mHUw7VVsdnHcy7WL6isKuXd9s/2tSNw3zX5bHYjcNcT5Cz9Bi0i3sMVoW4oEdNAU+JW/D
nBT5bM87FzrfN8ZXxQa/xzliRmyPLPAotz5CT9JhoceTxQ3cINWRacD/tA43rKDSNytlfogeoQ72
hEPURd20nx5kO3TSQb7upIcZuVFqJMNATMRcWFKiTPqvX06h3zODEyJ335Ot33wKckTWfXfHanfS
7Uc/+8Oi9nGh47jf/EdsgKkw/zGHMf9raPHzHzFjofMfcaZw/mM+6vmPWIUYgLiEGLDQ+Q8ZiBeI
AZj/MZIxwD3/ERvgtHDPONMDTA8y/RbTXqaHmPYx7WfqYvptJnjJAaaDTA8TxhR+TdTD9DtMv8v0
GNPjTE8w/R7B74h6mRJMh5n6mPqZkkxHmI4yDTClmI4xYWYMMh1nGmIaZkozPcU0wpRhyjKNMp1g
epppjAmz+STJvj/H+fNMv8/0VaZxplCQR7G8jL7R8P2Kv2OgnJ3hE/aIC9Z7wi/+maB3Gnxmi/2r
Sx1Ch4QBHabYSbcb5eyrJvvpDxn5rrEUnr/B6rCi1u3WdqvdamPu61yghl0OlerE71Lx+y0h5l3x
u53vjLEb7b3vhVVwEEyBHjMmyr0mfhvFbw3/GvQdUedHAmnhO9Oc5746IabQhxQydrLxUzyIg+zM
nWzskV9TqbM3LLXCuocn9zIyVvE6uor/olwtZjXz7308whuoGF9hbeVYcLt/lcfY7ZPssk+UrHwf
B5EvuSs3M5Vu1Xt3hbWbR9i+XvVSGhQKepIDSBsZh7jQWpZYrCruSG2ud1/Xb+S80edeTPyiubv9
mzvEVQ6xdqWa8973Nld8Tzf3LNe/z685rxlKNepXytv0Dv4r3dtneWd2neZv1Ge/UsXNl+r9rFhy
iH6Rs8lJUzZwQ+M/XxhuLhKn/4O4IZZsL27wWIry84X42hJ4qAS+rgR+dxH+hmlRZNzKIa8drxA5
r2YirxsvE/nS8YDI68fLc70GRvFljvyPYl9DZcaXeMXYyatHi0CHg160VaBfC3nRNnqVt0gV/Pee
EWTiBf81gz4X2ySZcuwtQbFdkstqxLOsVpkRcqclQWynsMqE+beft1TQslb8RljO53/+s3946HDX
jkOizFqBrxO/Lwhk3NXyXbAAt3+K77xn6Y3Yi6L0S+L3LZ5LKGGIP8ulx+wOJ39Y9IDMGvKm+806
ulj+QUBumnS6g3UOAIRrfCC4/+AVo0zsvr5rVDPnsvRC7bIm9Gu0i+HosWC7CC7mQoVdJKvllbRL
64LtsqPyN8xfBBdzoYuxSxtV0gKScQurd4WZn7LSHwEx5WHwPzk/6mrs4y1d7bizii9O8/VF5g2h
hT42Lu4A6U0YKTSG4xNCjD6SGUZQXWEz7ti/RJLNP7TbrYz+lcp+rK7D/0NP2gq30KU0K5Vw/kaH
MViQd6PySHiW06JacsLDzSWeCgbOpro/N6xA8vx6qU3yh/jvAG8kuzhvvW4t/xTh9jGsYjotsH08
hzqvHha422+7bi3/xO17POHGNYieZXpZTcDcTSeczk06sBc8ptiBSJ47Izm+v01y2nsNPjtHuf2o
+Gtlaufjy1beykXVn5vrLMLcfxv5nP+8eFaBNgyjF+2Ny+d2EVL6GcVPpsHjKcRdCouTNwQU5vp+
TAvKxy6v9QqvF4K775Uqh2SIZw3/duTc/bfSxyZ514XFpGsf4BBN40ER40UaF9scV8SC9O9HZMQC
kiZtEGPqAu3MZkdSh0ezlLQf6Ti0L3Gcme124z9dnaUP/n3uX2YbqytrK+c7EhnzueizPE7R1mh7
y9YNo2RHA8FOqjfrjNXRSHTj5uern9szOBw8nBg0pg+kE307jde/khjMJMP9neMjyUQ2cXhw2Urq
Gkn2J/sGE69Q+QP99PbBkdHqjtjusfRwJlm//CAlj6cHE9nkrmhyJHXCXP16x2imNzt8PHXS2hVo
3R9LZ1PDQzbdM0ipvlS2urK6aE0ZeXhc20EREp5QhRQv8wBF1TU2gHiqdapMXqdUVP+kQuZ/pfKQ
wh9Q+X+p8qfU9Xsq/1eV16oGt6o8ofJXVP6Oyj9R+W2qLztV/pTK31L536tchEdOLSo/pfJQWGQ9
EDcuX/QEFY8HZhHF46HbhQrJ48HZ2aBT5ly55GOczSkeD+/GVBmYrEnVRdDrqXDKz7pk2qo89iGT
CsdDxF6FIwkPLOG39FJQBPU0Zqbiu8q9ZRrZ7uVytwL/DyCfMEWZQF7OqaBVyYOL0AHepjvFQ0Tw
dXxe7ZHtWu7y5ewOaR+8jndUEVm3vBLLY7nkG9hyYplV/FjA4ScCTvnZMtku+EnW0zqFvgeki/r0
a6wA57rmCl5qz0rcdONxxmfDQr7gJ138FDl8lwsPustUSX4b8xMhye9FmUrJtzM/o/BdzPdUOvxZ
Fz/n4qNVDt9e5vBjVcX622yrC9KG5nLaTzMufsLFX3HxkTIXb0i+gbZT3MVfcvFpU/KVvGe9UubY
/7S0J2l9Ok6FpV+hLeVXPbLdAHygIT/WHXRWyg9gTOOWlhmkiOWV6Sd/QtW16SANuOqeNvz1uWxI
fTAXYsV+LnTDsYD3z3iySmGOaZ/y/dNc9hvM/yXTD9cLsWr/fPxV1L7e/nkbgXvsnvXf+sHbP9r3
N7+o/mzfB0+/4vdKyJ0gpK7/O//49r2vPvQHz/9Z633f/KPXFrifLqxW2HRuwfvp1SXX3l9VOksY
j8euu5+6v1Fztwd9uL15Ll/j9ojmzG1NpLn1eS6a5zbmufY8ty3PSSnX28e1FuzeFrePwyBPQLIx
v2zx+7hw7QpzStwN9BaWQUJACeaezOPbTJxcMAXOCP9LvdhrAsepKmBoD8nlxg15aJtVWz6/cpjU
4+r+HXwekfpEzdMBiPbXZ4AXgw+vOfrETDxas2mN0qf3pUbRzhhTQI2BxXk7y7xkYU+Sy0WV3BnO
zRelvYKMXCKnxcK2XzjbIOSiNHTG2UF/veEup/uh9ci69MB16kXn/bjbXjb6Zl7fngPch2l1MF9f
223OI5hRoLdQB6SmaqKfX1tHTSbCQS6317RYszCfmN41S41b3JTjcSM9p0T7+8w5A7L925/iBerb
PE7nVPtxM8C6WryElG5/eoHtI59jO8BPYIM4572Wo4O4bzjX0Be21ePeZK41m82oedI8ZqbNfSbG
fo7rz1hyz4py4doRoV95if718Cn0x188Kd6wAT9olhMWp2E6g6c+bJ+0iTbNEvUneHLM8/hMkrTP
LhNLUpD2KPtE1Cm/96UBoUc65/gRXODw5EmBww6dApdvswvbuhLScor9EfMzZkk7A8fcsJV+ok2V
x5Vtuyy0GzPRJgR0ktNeYbuQe5bL9+fkGNvqPnBsCg668ClVHvbvUvoBR6714wC9UuMRJQvl9ZcD
4dpjJvygjAK9hbogxZfyppv9UfepyyxjORE6pMaLXP7yy6Soyw9PK/5y2cJkX7KKy2Ez3mA44xTP
OfbBNfAgl2nPFdvZZrzJB2+HTB8cKViA22zTblPOBZ28z01+uWTz8hUNyrbaK2TeG7z5sQhWOHWb
zJiY39AfBzGcI9DPOeaxPmh/jyi8i/GBnNN/jQ8w3uODjzMe98HRVnsB3svzMK4Pxsq22OgLv6/w
jpO+P1Eh72Oilhqvelc/NN7A5S2f8vEg1gR/OZ+WwD/ywXFInblW7IdIHxbgDT4+fb2EeAg7FeKX
GRuvlHiwcnEy0wXyIH8qJA/MA4G08G3sl/Q6I8bLSpvRkPQT9AexEnSasagaRz3ek3yt47Otyl0A
FpJfCOlySIOuOCbKcV8mVbkmZTOs2fA3RHT01XDVh3+GXPUn1DMJ3Dur4sy88iu70uu3uCfmf6XX
bzXeVekfRwYq/eMIkp9fTlZiz+jgky795wv8CQn9txY1ok46ZzpycODVvM2Hbhy8wV9x4TeTIPcy
06Uq+Mu+In/BePZa+8zeqmJ/mVomx8dvX6rl93DBadStkqh+Q9Grxlb7RavZZEZq2f8MGacQh8V4
hr1xK6zwC2Hv+IfIGTesv6GC8nhosctHzgDjG33wccZX++B4KFLvg8+HvXFJ49Nhb1zSOB60fOqD
R3hv+5EPjvS3JfBvF/jd6YL1fiYgr2er/X2lyfTHT9dwbF6i5l/N4vysoaA82k4zNl8NP+su4Wfd
5nS118/iTEGuh/pIiDdRvp4W17KciP+MDeacOAV79EL/GtIvF4U+TSFPvMnHK8ShOPc1XiN1CSnt
YRv4Jc5P2O8ZLrvjutDPLtV4938an6nx97+5Gn//w+bPz/+Q/PwvusTf/5AK10Uk9FP3Ec98cotI
Uz77ySs8ML1MlyPy3lhkcTLnlxSXj7OMSETFe871/t5WftDOP6jH2Er3fjrtGlf0Mcjjh/r43wW9
v24ys6ZdK/fn8Bsdb4DhunBcJ7ji47li+55jfK8PPsX4Nh+8neWv98FnGV/uwoOu/mAdCrr6g4T+
qFcHAklXSTs11cn45D7viPhX6/UPjQ/UeuNTg8Ina73xCamhnmhuqXc+nVPjc6HWG7dwXhHxj3F3
3NL7hVgdztDF+DyX/xMfPMLlz/jgZxl/yQefYRyPiwr3wT2Mp33KpxnvdeF44An8NONdPuXnGI+5
8B5V/hLj0YL5psfRLoEvv1a8z8Wn02Gf8g2Mf/5FMR5l/Kc+ONKPC/DJRe4Z0uRfPsb+MFMv7/XU
L04m/KgQa2IZ47XqXFBfPN/95jfWiDm8IaqXfjlDen7HzHBOzuvoMrkHRf34Mu/8zo9/vXd+a/x0
vXd+5/2u3ju/NX6p3ju/Nd67zDu/mxQO3cIF5aE/+qOWPHGNNc9vn6Xvzyr7N6hYbi9z7PV5wTzW
+Py14jgxxvXmfMpPMH7ZBz/H+LQPfpnxSwU42sR4VZPEkWBfrc85V/kt79fbwC4tk+9WxYMjlaJK
Vq/lyEWKq33OXMCLI/UYcm+pU4xk5R5zm+f87yS8MJwz9ft1YzWtpcepm46ov7XUQnupjZKUoHba
TFuYWsiIqGJRzlcxEC2GNjlQi4D6WZxR54FaWeamQrCFDrOQj4185zYS6feJN5Xw3v8Z8Z6oka9m
MTbq/ax+N9Uk33eV30JbRYhjPoRHeV2Kx4O9K4YsY/IgzUlevMtqyL+fDMpH5Z73k/J91DnxDkq+
H5sPkO/7qAtKh+W0g87Jd6GhJjbZtOLX0wA1BbQOZeJRqyxzTMYE5m+hbXL4TwXDdWzdnoDW36TL
pqP/rOnoP5fXP0Azpr/+42WO/g3l/vrb6h3vRrb1QLkjv72ofCTwIL1LE+73imXedpEMI1rtfIvx
phWVd8mmRvManWfHtumk+TqX30+dzDeZHTG8z3ycDrK32rSWr9dzf2Z51JdQ52AyMWI/OjzyZGYg
mczSRW53Z8tqajYNkvVseoRStDMWhQ24vSnR3jDJlwzIp5V2UypHcLtIVdSRSmSS/fauVF+S9TIE
4bG9ydxF1rM7ebTtPOEqoHDotI5svpHKZJMjdiKTGe5LJbIs5elUdsDODiSFOHto9Phhvt8m2hvg
9iAD8lcr+bgqV1IxQ2zqNWEhed+mmFlJX1f1VlPaNFSdClUHcqOGXkyInth1nm18NY6gs4LLAW83
5b/iYPTfDA6YepSumGgvbXrbrKI1jMn29uXbC7rag5e9GRRziOVyCArIf/GB/JMkE8qNBdzjbYie
vk7yu1GNY0xahC8M+OgxYD5BVy0cFK9aOB6m+nB/DXWbujw0k+WDbKcOS+rdndc75NIbL1cgTzxo
drUv/WVeRNpifZfQbcz1q3Lwo6jqLxJeg8GObnlh1f/LphxPyAqT0zNcV+VHep0aaXffzxO20H9M
ewTnLXlMtAvP8OKVojzanQyQam2feDXXaDrjJ/HuPB5y4Y6uwKUmZcL7YpZ/P8rEtVsL0b4l7aw3
cMEy+MtpEUHgL7B0sZ1J9QvS03n98n5eMF6Qrx9s4msKm1qV/hVKczluhvAj+cAIEctv/ulZrWcc
5nokX1vXWOeq4a1vqntIfvetG9wvc92HnojWF9km8VQ2s2uTjDw1+chzJ91F9j4ZV4aP2AOpbDYD
pjDmbBLl37Tiwu74lzvMzz9lbWpYtrRVKJ/rOVfooX5lHI89L0ZlZ2zExBsc3SN5revi/jFT30X/
ppV/iAN9kR+oTVd+vJ1N2GS5jG9zgavxOeHjtpzXFe55plvVfVlNWeFNjj5VeXsvydefJfwbpvz3
PWXApxMZWNceHcqmBm1mRpKJvgEO8dH1sHff8OhIJtlMw8NpOzOK+veq+juH+u1Ef7/dYmeH7WEe
lxGuKleKjJLG4DN5ea2bNjWj/t2ov6nZ3pPkthJD/cPH7ROJwdGkfWSEWSENg3xg9Hiz0Hczym9u
BnA8MZI6mcw3I+s5jaUyrOLxfIMsHPVrPP090wzhwL8MvLXZfmCIO83gcbmoDQ4d5QXvocTYIxB+
T2szfA3ltyo56ZHkidTwaMZ+46BU80yzvTeRyebVWpPRtk0NnRgePJHsF/1oV/XV0imVFT1KDR21
+RKKvSEtMvjMhsNyue5nX09kUD+C+lvYbsMwUWNbc+OJYeArgW+U9mRt9CTJj0Uz2SmU24Jybc32
/iEbBrIH5ZAezo4k+rL2Jml+rppwemI/PZDqw3qO+stRv3v3vfZjXQ90PmF3y6HLJJ8aTQ71JeWU
RDlS5TeifEuzvVPvGuxMaszlIsIOgPqd6Zxphr5qXbGknLWQEx9+Gr0+mvcZr4VU9WbUw4d8iCs8
imwOGVcq8nFlJe8X3GbKjyY06UsODmbSDZ9a2A8hysjaoXzt1bCCO/wIc6kpxPuiixx9uof69x/J
txzM171D7KX8HT6vBTSQd+nK3dBDxccWKa1y0fGxha5scclplXKqFi2nlWZ2uOSonWJ40XLaaKbi
J46cjVJO9aLlbKQLS1xyNks5SxYtZzNN3PoTS+1/lZTyvJTF7X836320Ws3KblLOJi1HWce6STkb
tRw16uZNymnVcpQXGjcpp0XuYyrUCYuM5y6W+lb9e3M/s6+2NFZXVs52JMyMmY4+G41GW3uj7a3R
DWRbkc4KqjeXG6uj+Ez9lPhOHZ+pvx/Bd+riM3UrkwxPd+Iz9aD4Th2fqU/gO3XxmfpfBMV36vhM
3RLfqeMz9f9m70nAoyrS/N/RSXeTo3MAORp4SYjpQEK6OweYBc19YCBAItdGkk66k27spJl0h4RZ
x+kERhh1OARl0XHIAK43BmWWcXUQBF1dHTkWD2Z1OJRVEV0HQdFAv/2r3ntJJyTSArPfzH5Wf3/X
q6q//vrreP9f9V7V/4DsUyfb1DlpnzrZph5E96mnENkHivDru4+9svjz5jNMuCyjJCHVFe5cpkYR
5X2ISCjGu0yWUDGh2hRswBQUjHmSZPSWCaBIRlBEo9NjZzVqvbtTD/FmUJSUGrUUF000FCgqSkd0
FB+Nch0UwQ6KZAdFtDsbW72LvILFO4EfIxynQr3whrxYbmKeJLsgvq2O6lBg8+wNrN07U1L+eyTt
vz8+LxQUdX/axBS48gyt6ux9OlCtXgaqvOS8CFTufLiOaCGYibLPtXckaILDitTZherlc4U7l3bm
7jOx8fkhEL5fm8MjsxzVfDfYgiL3hbiFVxIcbr3g9sYXZZXchMIQFA3L222dEVTBJrpLp6NmLSp1
tExBrQr3vRr2crPHvq9wVNc4okC9XGfK9vWzf3FX2PLoDbxxMvxDoouZjWpyz+FQrbdSOmbg3QVO
+ZiBoJ2FHd25utA1qiUvZUSn4H1AqHAtgHHTBFigGzGzYGtlXmOVx7bE/brKxHk7Xh9R1VaPS3OQ
1+a16vwGz5YwQ2qodi/cVORoFhy20ESW6QKhkKiRSXVVNqetoW4kqASugamLmUQX9xbvKI+txSOE
d3LC2JQu9uOQreo9ziaboS4x35SYulizlasqsnkYi8PiPLnInbSV3QolrtbjkdOE41lCtUvIS3pi
TCHfeXyZrbHV5rbXNcW4Bccv2MTRBkdahzA5Vbi3bs4erq7cMMnBje0eeQM/JZlvsT5+3NDW/BP+
RitfJHjfWK57jJ/D6cocx/FOOjjT1uHpjCgWHELGuFBT89i9xoTRDZGmNKHVdCI0sWDf6s6w7lLh
QaGUNxfze+JMifUZm1ZAipDHnlwjWF65b5GVu/e38yyaU4tMpzXmfywI8wabRc1XGvNpTebTpzSZ
5DrztCbrlGZuFrnOOq3JPqXJfpJcZ5/W5JzS5Iiaz7/S5JzWsPMSj5v2zE3W/jmF2ZT85A2/7nyr
YV3ud9y39emJc4rSI/juBM5127xjD/Cz+a9ufYI/nJFYb3j8hrWCkCJ8O95j99rXbWtE+TOBNxlP
RpwymYuCJ6YI+7ISQr90iF9mHrS7JgjT15ssGVtNXfy7Gyes4dfwQm+qicvAYIoUvCfVtH4SBnel
0mB8qimJBEul4JMG03PpXfyudw00aDZsjM/0lKwtb/EYnnJkCBB9caJQVrSHNY98Lm4L9yD/YWvk
AcbpNvSwz4YfYMR9zNmQA8w+pmsy+T9TuzvzZO2r7Pbai4yr1hDFrkytPSi4FgklbS3GpY/23Lmr
iYl2tduWpn63tHdcx+9cph2u+tgdk9/hFzSHCBPX/zQxztWeJojVLQvs59W/tbevWKg97/q59ufm
VTv0hx5OLtapLQnHQTg54WLw5NRUo6Y7oTNC3BT8yuplwQlFWW2bgzcGx0WeTDvkrW5e0jN7cbRZ
+z+bo9ZF9ah4btpr3OaoRP514Mob7exN0/Rha5MuLXmk5RX2S3Zt7MaQnoh/WfVtD1PcYdzVrtMx
+UxP55nyxkh+TZyrW9UUt/eh3vEpgNPisfeHJ/1q3PgtqvYDukPBe0IdRu1yY/XodJ/gXanLuCP0
RnZdsour4750pArphWWHVEaAoBOruamCUdireiq6h3tvmmB8Wevlis9+5AUxCY4F/4mbFfyfwSvK
PNyx4Aupwk0n9AejVO9sUd8aLB4I2ha2I6L06CfsuvQj8Xs48T14Xv/M5oObDj+xY4FLv5Yf59IX
BLv0PewjupoeQFFKWhDn9hMFZADvfZSpBnIDq90GJ3tQSBdMjKoDb3JUADOP450iOMjmCM3Cz7g5
IYmpzPZadi7ckVADEwVTqLa4xUpml/VDHWO6BqdsHHxcfsl4SPaV80pEnSpnndS4UCCPohNkU0MW
mUJ5UD+u4hj5KTxXp6H+te+3C4ZVMFqmNU/2N8r+u7I/mpXTZX+j7HsxvYKhl7G8R0wIJU801R7R
1/0Z5TzOI0ICJpwnp3hUDIxnIbQHF+IEhTyMoQhJiJBSLSbnWkUVJCeEkjMZg2gE6/JYbIyR50ke
vkM8T1bZPmuFWMqAFsO6WSQ519khXnJYxWTDFKxVMl8mkqQiTHKWYUKMmDyAx21SHQh9/5zqvpxl
PzCnpi9nRQA5Kd9kazC9aqwQyQHSKEcDweDBg+06nj4YkSxBSQ/vFCe9sqCdAx6RgztwJOWpKOmJ
BjsOkmRDGfnPNdCG6FA46OjnoEOkqKwfqjoQVJaiagJB5SiqNhBUnqKOCARVRVFDAkENoqihgaAG
U9SwQFDVFDU8EFQNRdUFgqqlqBGBoI6gqJGBoIZQ1KhAUEMpanQgqGEUdWQgqOEUddTwqLmIyimD
8Dx5J3vmHPvZv/Z+fI757MlLtxvEYXNWGgw0J0+L8qMyIMOWj3xSlmQ+WomO7qOTykOHGC1mI1I/
Oe76kuOvLznV9SUXdD3ITesjQcTNm77z5NHugoM+Sfi+6bvk+J5+7M+sHpi57Adl1gzMXBFA5vA+
bCqHqbk9lL09KEuHl70x9J8+u8b6cxCN8JGPhcdAsiWHtEeeJ6KZ6D1C1Wd1iijVC6imiCE7Iy85
5ovJTg8GpyBzdoU5O7a4WpRI9G644LuY+JMOMc4u5vCgFi/4UE94xEanSIwAihk64EHmbQWWGxi/
pK3UeLtckPmtkwqrTpkvakcjwUuLeYm/IlRo42lnVivcVSN35+Tx0LvzI1/vp0d8hv0+BlndKbNa
LeYEwXzxnG+nT2GxaabEz2tY1vA8jqf/0nSnGnmcjzyeQx5Jux5B2IlALCf9Xip+cPvaxe2kfZdg
g0ZL/FfL7ZuF7WtVamDFGvB97XuOML1EjLOS9uWRabhRpnCbQsKQRYfk0AQWYs5sXtRvwQQsC+uP
TSt1Cyt1lX1wV2GdV2EdAusrK7YDL7dDNc63olnwq3uHUvclYjgLN9Oxpaec0/Ttlxw1yP9Uelc4
Ff6dyH+Iwn9mnFPMDhH1KQw00gp/4kumZF7zJQ8kQ2OnisMQMuhRJPX++qIvmb/gk9Mv+PyEhBPH
LhYEN9JSAqEHcFtvk8zeeAYyBmekKAOzK3e1UxzLkY0Ii6+xSmRYf3+VcNSEiBd9MDWwavn26umO
o9t6PXLNGBbMg/MqWMNVDlg6uHC+uIQOrii7jaSp4QiOj+HHlZ7+S6PQiePqgo9D5lm4iGOLHM+u
kebwl4+tBwGWUR55Mfk82UaBjD5xyfHR4Pb0S7usBfRyC1zyxYjaGCJlbt/vG1KjZMSItHFRqehF
v2q+SFkI8SUb8nwaoIGdGKjzkdHtVXrI6/NtMSoCaoNAWbzkOOcjWk7ONcw9oXDYu2HbIMa2bJAJ
ypJuBabrlQL1/UNCTbn2+vS+nBDQi9t8G3xGn+Bb4ZOVCkGHbqbme+b0ktlMaVt/DI4/p6xbvNhX
egLYX9uwvzYgrEAwIggIwbSILOqTDiE+K/uc7POyLx/8jiLda5DMlQ7phrbfoQPFbkf/qpOE8oCM
rfHAyKtF6bzwVFY/AIu4seMhX0aSDvHm+W0e60NKg04ZiZyQVDNFg5A6KVr/mcaxBkMatRxHsnA0
S1kgWRh5FcvTLBVXzmKAfDkLOUrIw6xhstALsidvORDDX8RIHsBdCCtBOub/S4S7Ee5BuBeIiVSA
1QhrQDqvvQ7hPpnGBvTvR3gAYSNIJ2Y2IeCtCQ8hkG0QDyP8BmEzQjcQM2MAqJdgq0zjESAv2AEe
RSB6/3GEJxCeBPLiH+BpBFSh8AxCD8IOhGcRnkPYifA7AGp4bBdIOvh5hH9DeAHhRYQ/IOxGeAmk
HeF7EV5G2IewH+EVhFcR/h2BbJR4HeE/EN4AYlgV4I8IbyEcAGkH6iGEwwjEKi0xP/Y2wjsI7yK8
h3AUiPlYgP9CeB/hA5DqeQykF5AnQLKx+yFI5hdOIfy3jPMJ+p8inEYgTxjOIHyO8AUQu2kAXyL8
BeEswlcgWWw8j/A1wjcgWUz8FuE7hF6EiwiXCG0AevJVXpbjcIFOebSQg8I8KvFhRgvFlnZZENfy
PTdmgO4H2G/7Ipek/Gi/7To5snWPhX4zhFfnQqiI6d+wdSV84roQ0uSJZr+5v6tzITDwueKVcwCs
h/7yh7P/HqiLu4ryiSpeIltMtIKD2u++Wqe+ivL/jBAr38XXbr/t2ux+EP1Oyvj7tN/G+KUNh0fc
34r9theGtd9G34mb/3beidN3qjy13UbeqcJwLz1+gP7ovvlH/XEdnaQ/fpQf/nTFIdz3xf8/kx+Z
f3/y402Lmy6dYnE+QF79fehnAZqYPWZx9kxO5pQOGLVZOEsouYZRm4Q+MX2fBDciFEIuliDNP0rx
Px/uBBPGFGJ4Bv4q8a6RYmZAOcYSvCo5Rpq9KH6OfFWMV5OgCCrwl0QPdbihTf4cRAH6boxpwOsS
+vUdAXMuwZ+TxlrAg74LJ/fuAS2lYy5vB2K9NfOa2sGEfGbRTwH0t0Mrlt6E/xZopjw6kDMbckPq
Tzgk6W6ERvrdokp6SIvE2xDDP0TOZNVgW8xHysXYEpPodTGWNBSdYuiguUgbkZykfwj1eliMsQ0U
pwLz1VPOBn8n6cUhR0nmoDb5oa1jlkdJf+vMwxEwE3u2Eq+qMFyFfLiRNxu2VSbi19CQFWtF2ozk
9+BVPeavRO6LaV+3YZwL8ft72t8Z+vrZjOWUYB8XUY4KkddsHD0lSCGdtpAJQ+kIRUg3W65JPv6k
GmTJ8ea+mpgD7udCyl8z5e3KI6AK7LRHyMdAhhoBMxCj0u9+uNIoupr+5+kzIJY+o+FZYsCdAWL3
UIu+Tl5OK7iSHCcPgCQrA1fj/LVQvzs2mUflMNimdzTWp9zvAGMOXtVjuSPZy3FFcdYUmRjREM0c
kf1aPzPd0UOehhTFWNYfSxSJtUjiyNlAOJo2kIyZkpk+BE/xrD+WKJJFP3HGobjJpGRuGYLMGNYf
SxTJ3I+4sn4yxDGMnR1e6wbqYq4DjSs5uE5lGP8PeP1ruLK/It/nDpQtbFj2aPlTm8/0Lj3cNJrE
kbvra/O0TzPKrWUPnn7sxFsfOPOU+MLPd//07e/aZq5Ijf19x9HlGiXefHfUwvC1UQX3uF4a88ka
9SElnvjkfZmXDsFy5lYQQU0+YAYanLFGg4jjMR+VbSKo5FChq8XtId+q4uSIIkcz+T4ZLweLnW4b
+QZZX7gDpziwsA+9yeYhjzYU4uWN5JSdEnK4ySNTJWu13dZCHp8qqR4XeTCqpJKt1qqQ4o4Gm9M7
0QhcyNyC/G9OGkHFz3O0mHLW6OTLTPPbeMnxMywNzz1rBJ5HvJynk4yg5me1uhbbGjwm7WgjBIW4
PVaX07a+zghaQktO3P0SSatsbHQ02Ea2Ya6QD84ep+bEvbcZQYMNJ3IM1BaTwws45Ys5isWG4JTz
rOncC8ql+XzfZebXeBnJ9x11rc1v8DiWYsZ9+5Faf7wK6TC8o05HvMUW6t1eT+okl0g328b9qp8F
uu2W7PZduN0IoQoW2XuLXUb23rr/6f3+7HMsLU22P4UYQcdX2Txkm7XD4qRHf9ztJ7C5yHGOOQeM
EAdVdlf7DJsVkysbyXmfmY4Wm4TYnUoakbBc73LdHhVrhAhwtjQRJIpQ3mK1dehSjBAPc6Rdu7Nc
DmSltdpV6bTaZKxNHyMVmSulMTbe0R9XW2RrtLQ5PYtfNkIYP/CYUk6LEUZSPFGsLahdammtHYhw
l4rUcGCcxb3vcdLWpTYPVrKqrXn3L0mFEenmZ7CvCTZGxu4mOFJODIp/NMIIOQs95vLMKOzHgUX7
pR64gH1A0Mk5AOk4Rs57RgiWCZpK2P6AudQvkFnmF8gq9wtkT/cL5NzCyqzOcbWf2YVDdiArJa7W
xRXK2OiLLW+cdRZRSTayRkE+DzJyLatpcNvPSC3lzsJi3CxcVku/1K1/UbqpL9Wh2aK0LW23h5/3
o0iOrDy8iDQ2dsQHeK+OIK0+s60Fm6eysd0r95USQXeh/+FgX2xzf+zh9wmVMle77kFsB5DStqaT
yHaLe9on5MLu8GRsIhf5Vus3rXgDgWW+rn9czZLPHuXWo1AAcqgtdjO5IifbynPJFTms9ibhH/xO
rO2ejb0A8qG62ZlGYImuJntWxrAc3gCXy3Bc6mMsG4CWCGPJE1NpThbJcnQeRA7ySamxSCcM4llp
kU3efTLUMtVgd/ns6ypjRj7rlT6vw4BxAsuu1cCS6KAyDrpYsH7I86AFPSiCclWDR0X23+ax0YuD
WO00VhvMtjLRalVQpIaNpNPKDRDCTp/KakcB0+qVhO1NbGzfosBL5tGhOF9OZhcBN6GmFFfpXqPZ
mJWJq3T1GJ4vxBlrGBOJq3TI+VmSeZIRZXhSYW7NvPKZuOiYV1VTtcztEWzNmeYazmbG1YWzPqmy
ohiXFW24+LZ4HHpXC9QBs7wYpTnelyuKcWbtBccRaOgq/o03YoOX6SwGc1HJlCJjFi4psgtK8tNN
Rq+pIL2gqDjbW3wkP99bmOVVmVcVe/8ZmlotzUKJA7l21xS6mptdbAsfNMPR0OrCqXujR6iyW1rV
NmsNl2cy1szwVlVOKqqoSFqpY7hQwWScZBQq2frOvUKFo77Vkta6DOeKTHjXER66orq4Y5NjcZxq
QVE16lLQeYPIhBiUGfHczE7+7gjzYbV+TyjONcsKGFNBK04f02BsAcuo0l6OnzVlemKBemIBEwt7
V77RTVRSKbs6HvRb8mGcCeJWBpnvDSqvjDuaVhnXfG9VnPn+W+LMZXFm/IcPs6q/yK2Ky7wlLrMs
LtOGnjWu++by/23v+kLjKML47F3T5O5ymsRWaKr1vAf/5uLe7v1bymEvt3dJsGnaFKTYCk2bi0aa
y99ioTYV1If6oJY+iCDokw+KUvSpiCiCoBShPhTsi+iDiD5ULD5YBeP3m/l2b29vkzanD4J+7WRm
vpmd+WZu5vszM7vTX3qqZZisCeceeWBJ42/JIK7J/QAVcsabJkJuqMP3z3v/jB5cxbqA+2+wgIQv
2GD+3Cg/4AdyL3WqsLf+du4Aauf+m81a46RA867P0/J+1Y3Aljbq79LUfbGA9nadGoD+x8IztpNu
tv4o1b+J1/+ccYCTFHJlUDQccaUVSlnRAlyY3RHeAsYHItVCouYuc9/N7O5i/7tTQ10rYx9/eOfV
a2+9fEaTK23b5Gqb4GdAO9nQvm+iIu0Cl/bcizX3TMcCjx7k6RQz/PbBa+x/wf6P7Ec4d5r9fe7T
an8eEFTzL+ukRbhtm8R3QYY4nm7skzdBZJMIhPs7RCBQL4fQow6bomJDyCrVX2/E8EbMsKJbNJRs
qjf8M//un6iyq92UC5YIcfi9E+PDE6WV9KHy+NjY+B4KjI2WJ8b3U4DKgMvRn0oOHJaaHAqrwqmO
aIm7AJ2D1uFnmmHcV+wfFl4ALbf57oWgIRzCyyWgZXHO4fzE+BW/B7tXFsIh5RHHrxwoV3YPVg5U
nKZLSwUkWdz7IMm5vm6ScVfYnxdeAEm6r3uo30N3CUkSBKAj/6T4U8LVGCQJiNox1hSKQqdBwijv
PoEEZywsMO4C+88KL4CE3Zd+S/1+cHvPR9+Lt4X9zQSx9tDDIqBXpDist3QRJCIJRLeLxpRMdEhU
eJA3KTsF+zKk8ogweIImX32RZ0862Y+wHyO/m1yc3C3kbtWEvEall1wf59lC/lZyt3McX/zeRq6f
43ew/z/8e8AZnmqAnmHe1Mu86JWW4fm1b9IC5791BTj/pS/A+W9rAa7Xbs4HtgX20bDRCdHnRbjG
PFKg+PhNa6cI1zwCIsYINh2p6lBcoRrGo5PPY3z5ULCtCBXHHRS7hAOybQHtvdKK6wiJsyx9LjTJ
MKH1C9xFcEwuZS7KFfC6XNfH3yVIgRh+nBJpSVTqZqeUN5WHTecYrswaktd+L8m18ISweUWbnoxB
huDC7Cfkx6K8ccMXN33xjC+e9cVz0B9i3W58vzhOehRxm1iPxNWJFqyvK7zzrEOb8+wIxdFSm+hr
xRkBODMAlwnAZQNwOVeuOjKNhkPnpOc75Pvohz/PvUs9ftqfXqH0S5y+0PZBOHV+1eugXZ3i8iDA
I5yzedaquEoLu2nUpoijdzjvaCptTG774ooFoZYzZrkGR6to2QhgBaPpgk6pZTQdGZOqxt85xDVq
F5MnM1U9nc0ZlVQunzNTmWohlypUK6VU1qzaVr6Q0U2jeioZj9pzR4/P1urLRYfqh+4Z0Rk8qZLw
tZOMtZPMpqQ9k7O1YrKhQBEFI7Vj83Kl78QyKNcJ9WhtcWlmrk7ieJ7M3yPHaqZRTJqWaRgGlUIZ
ymPDxWTJKOn5nG0Zedv2OrRq71AxmalmbGuoUK5krYxlWlnlKHW4XExWy9WKUchX8wXDzltwNo7q
xKMHR+bIGq+cWK7Vp2qLidH69Nzj8ajbhnTxpFkwDTuX0VPlqqWn0ulyNVWoZMyUrpf0spVO63q2
dGonzYGd3pZTyZLfzk8erVGBTncX9YGE+78cj8qOLqazmYGE/JPPGAOJnG4NJB5TiUbQE6YfeeNR
sjb8uQobplXVhtb57QtvXLs+/mTPO2e7xIP3fnAF9i3OJHdy+i6h3jTA+g5mCewviJrDQp1nxAEI
CInnhTobD2mImmC17BDqwM9SvjUMrtdQyKRKqqTFT5+tnC9/qsnw1d6ZixRmPbBtWK/9octfXn59
cHvPuVep/QPX30P7wbEinI4zJR3MlWd5T3OUuPW0PBWw1v5wM9wnz9isrvaKm7c/cfj/cw53EC+e
IzkAGpSs2xg9hTbsb/kOOZslGu81z/NO70ahr436t2vOm/P/DGy0fi/g5iFca4lXdKaEeqsD66wY
w8tCjftnyEG3wDzAfMDOLuYHzt175wN3qZwLpWiU3xARa/o7elReSCUlbJyQ4YZM0d2jatnhyfmH
fA5OoxkQZvvcr3Nu5dwJ/2REMUMz09MFuWwicYP7oVsOFsSv1vsL4r8DfwFQSwECFAAUAAAACADt
tQ4tpfZlusMwAAAAkAAADgAAAAAAAAAAACAAtoEAAAAAQmlhc2VkRGljZS54bHNQSwUGAAAAAAEA
AQA8AAAA7zAAAAAA

------=_NextPart_000_0001_01C243EE.E75526B0--

--
http://www.piclist.com hint: To leave the PICList
mailto:piclist-unsubscribe-request@mitvma.mit.edu