%!PS -- delete this line before printing the file on a PostScript printer

% this file outputs AN AWFUL LOT of words and THEN (maybe :) one number
% the number is the solution

/Times-Roman findfont 20 scalefont setfont
/tmpstring 128 string def
/number 1000047 def
/upperbound 47 def

/trick1 {
  /i exch def
  i 1 gt 
  {
    i { 
      i dup -1 add 
      trick1
      exch /i exch def
    } repeat
    i -1 add { add } repeat
    i i mul add i sub i sub
    number mod
  } 
  { 0 }
  ifelse
} def

/prob [ 
0.000000 0.121172 0.037928 0.068618 0.047529 0.041291 0.047079 0.010163 
0.010276 0.089907 0.002075 0.001900 0.021064 0.021639 0.025927 0.085169 
0.053492 0.000713 0.030202 0.077331 0.148886 0.015476 0.013751 0.022627 
0.002675 0.002313 0.000800 0.086673 0.000000 0.025287 0.061706 0.020956 
0.000058 0.001570 0.037407 0.000087 0.024270 0.000203 0.003197 0.096207 
0.053626 0.160907 0.000000 0.030199 0.000087 0.121320 0.050603 0.175091 
0.008342 0.012440 0.000639 0.003604 0.025520 0.000000 0.048344 0.061843 
0.003139 0.016167 0.001099 0.270915 0.004395 0.000000 0.000000 0.093078 
0.121645 0.000000 0.136085 0.000000 0.000314 0.048658 0.002668 0.000000 
0.008005 0.020405 0.005965 0.039397 0.000471 0.000000 0.000157 0.117250 
0.000000 0.023320 0.096000 0.000000 0.020078 0.000052 0.161046 0.000627 
0.000000 0.080680 0.062850 0.000000 0.023111 0.022013 0.003399 0.000261 
0.217673 0.000052 0.000105 0.054379 0.011451 0.165908 0.054536 0.000575 
0.000000 0.000000 0.001882 0.000000 0.403648 0.052294 0.000458 0.003726 
0.015950 0.248856 0.002549 0.002288 0.000196 0.158191 0.001961 0.000000 
0.005622 0.000458 0.000392 0.028893 0.000261 0.000000 0.004576 0.020329 
0.001503 0.043012 0.001700 0.000261 0.000327 0.002549 0.000000 0.330347 
0.025554 0.002005 0.056473 0.073051 0.010457 0.016651 0.009517 0.001228 
0.003793 0.000018 0.000018 0.026150 0.017066 0.088366 0.002962 0.013364 
0.007007 0.132865 0.098985 0.032814 0.000759 0.018890 0.003070 0.024579 
0.004009 0.000000 0.318093 0.038193 0.000218 0.000218 0.000218 0.050087 
0.038411 0.003055 0.000000 0.233850 0.000000 0.000000 0.013968 0.001200 
0.000000 0.200349 0.000000 0.000000 0.034046 0.001528 0.015605 0.037102 
0.000000 0.000109 0.000000 0.013749 0.000000 0.349049 0.014978 0.009768 
0.000130 0.000781 0.243293 0.000260 0.000651 0.033863 0.034123 0.000000 
0.000000 0.033993 0.005340 0.016931 0.027481 0.000000 0.000000 0.104715 
0.019667 0.019015 0.084657 0.000000 0.000000 0.000000 0.001172 0.000130 
0.126249 0.143452 0.000069 0.000000 0.000555 0.555910 0.000971 0.000000 
0.000000 0.089831 0.000000 0.000069 0.000763 0.002358 0.002913 0.045921 
0.000069 0.000000 0.010405 0.007214 0.007839 0.003122 0.000000 0.000347 
0.000000 0.001942 0.000000 0.007113 0.015362 0.012089 0.088165 0.019002 
0.035700 0.029756 0.013559 0.000468 0.004575 0.000401 0.001169 0.061348 
0.032093 0.290108 0.115048 0.028687 0.001035 0.021473 0.091337 0.103126 
0.000134 0.015362 0.000000 0.007881 0.000000 0.005009 0.074468 0.004836 
0.000000 0.000000 0.000000 0.754352 0.000967 0.000000 0.000000 0.000967 
0.000000 0.005803 0.000000 0.000000 0.000000 0.101547 0.011605 0.000000 
0.000000 0.000000 0.000967 0.044487 0.000000 0.000000 0.000000 0.000000 
0.000000 0.400894 0.000745 0.002235 0.011177 0.001490 0.401639 0.000000 
0.002235 0.000000 0.044709 0.000000 0.000745 0.001490 0.000000 0.023845 
0.000745 0.007452 0.000000 0.000000 0.072280 0.000745 0.023100 0.000000 
0.002235 0.000000 0.002235 0.000000 0.156781 0.087452 0.000127 0.000634 
0.015146 0.204626 0.007921 0.001648 0.000000 0.084728 0.000000 0.000253 
0.086565 0.002345 0.000063 0.125475 0.000380 0.000000 0.001077 0.026109 
0.057541 0.060646 0.001267 0.002218 0.000063 0.073321 0.003612 0.145932 
0.182497 0.044801 0.000220 0.005051 0.259800 0.000000 0.000000 0.000000 
0.052487 0.000000 0.000000 0.000769 0.026573 0.004831 0.062919 0.137477 
0.000000 0.000659 0.029428 0.000439 0.038981 0.000110 0.000000 0.000000 
0.007028 0.000000 0.234866 0.068989 0.000206 0.056140 0.116711 0.062015 
0.004501 0.126812 0.000584 0.020683 0.000412 0.001031 0.009105 0.002371 
0.005703 0.032296 0.005532 0.000069 0.000206 0.059885 0.155982 0.014877 
0.011029 0.000069 0.000000 0.009414 0.000515 0.077443 0.001426 0.036401 
0.028179 0.044954 0.004277 0.081024 0.016410 0.000166 0.005536 0.000000 
0.010874 0.052778 0.047772 0.196095 0.009349 0.047308 0.000000 0.187011 
0.040446 0.033915 0.048767 0.008321 0.020223 0.001227 0.000066 0.000033 
0.020387 0.184155 0.000000 0.000600 0.001274 0.189702 0.000075 0.000075 
0.022261 0.017389 0.000000 0.000000 0.090316 0.000375 0.001124 0.112427 
0.046545 0.000000 0.172238 0.009294 0.084695 0.043472 0.000000 0.000075 
0.000000 0.003523 0.000000 0.022177 0.002016 0.000000 0.000000 0.000000 
0.000000 0.008065 0.000000 0.000000 0.000000 0.000000 0.000000 0.000000 
0.000000 0.000000 0.000000 0.000000 0.000000 0.004032 0.000000 0.000000 
0.963710 0.000000 0.000000 0.000000 0.000000 0.000000 0.201766 0.137220 
0.002888 0.019209 0.020519 0.218692 0.002653 0.007187 0.000201 0.086745 
0.000067 0.004500 0.004366 0.026430 0.015717 0.072976 0.015582 0.000000 
0.036706 0.052625 0.020049 0.010646 0.003694 0.001578 0.000034 0.037949 
0.000000 0.440789 0.019021 0.001138 0.044321 0.000110 0.130173 0.005765 
0.000000 0.017295 0.047296 0.000037 0.001432 0.002754 0.001836 0.000441 
0.036537 0.047039 0.000477 0.000367 0.024823 0.134506 0.033636 0.000073 
0.000734 0.000110 0.009290 0.000000 0.174062 0.068483 0.000319 0.004900 
0.001250 0.152378 0.002058 0.001005 0.249087 0.115968 0.000588 0.000000 
0.005145 0.001054 0.000441 0.076814 0.006836 0.000000 0.043834 0.052116 
0.012300 0.011516 0.000000 0.005733 0.000172 0.013917 0.000025 0.002823 
0.073956 0.019759 0.059842 0.011385 0.098607 0.005363 0.008468 0.000000 
0.024652 0.000000 0.000000 0.076496 0.052126 0.084494 0.001223 0.028039 
0.000000 0.164471 0.140854 0.146406 0.000000 0.000753 0.000000 0.000282 
0.000000 0.000000 0.015048 0.260824 0.000000 0.000000 0.000000 0.426346 
0.000000 0.000000 0.000000 0.211457 0.000000 0.000528 0.001056 0.051478 
0.000264 0.029303 0.001056 0.000000 0.000528 0.001848 0.000000 0.000000 
0.000000 0.000000 0.000264 0.000000 0.000000 0.121569 0.064706 0.002941 
0.000654 0.005229 0.114379 0.000327 0.000000 0.239869 0.270915 0.000000 
0.000000 0.006863 0.000000 0.021242 0.086601 0.004248 0.000000 0.039216 
0.020588 0.000000 0.000000 0.000000 0.000654 0.000000 0.000000 0.000000 
0.178034 0.149448 0.005517 0.030090 0.014042 0.315446 0.000000 0.004514 
0.003511 0.062688 0.000000 0.000000 0.009027 0.006520 0.003009 0.000502 
0.083250 0.000000 0.004514 0.005517 0.101805 0.004012 0.000000 0.006520 
0.000000 0.012036 0.000000 0.745338 0.002935 0.001727 0.000518 0.001036 
0.006733 0.000000 0.001209 0.000000 0.025207 0.000691 0.009841 0.001554 
0.004489 0.014675 0.005180 0.070442 0.000000 0.003280 0.060256 0.036257 
0.001381 0.000173 0.003108 0.000000 0.000000 0.003971 0.141026 0.096154 
0.006410 0.000000 0.000000 0.413462 0.000000 0.000000 0.000000 0.035256 
0.000000 0.000000 0.028846 0.016026 0.016026 0.044872 0.000000 0.000000 
0.000000 0.000000 0.000000 0.000000 0.000000 0.201923 0.000000 0.000000 
0.000000 ] def
  
/last 0 def
{ /wherex 50 def /wherey 780 def 1200 {
  rand 2147483648 div /foo exch def
  /goo 0 def
  /next 0 def
  wherex wherey moveto
  {
    goo foo lt {
      goo prob last 27 mul next add get add /goo exch def
      next 1 add /next exch def
    } {
      exit
    } ifelse
  } loop
  upperbound 3 163 409 mul mul lt { upperbound 1 add /upperbound exch def } if
  next 1 sub dup /last exch def
  dup 0 gt { 9 add 36 tmpstring cvrs } { pop ( ) } ifelse 
  dup stringwidth exch wherex add 2 add /wherex exch def 
  wherex 500 gt 
    { /wherex 50 def wherey exch sub 20 sub /wherey exch def } 
    { pop } 
    ifelse
  show
} repeat showpage } loop

/j 1 def
/k 0 def
upperbound { 
  j 1 add /number exch def
  j trick1 j add number mod
  j eq { k j add /k exch def } if 
  j 1 add /j exch def
} repeat

k 50 750 moveto tmpstring cvs show 
showpage