files/practicum/Words.icl

   1 implementation module Words
   2
   3 import StdEnv, Group
   4
   5 Start = words tekst
   6
   7 tekst = flatten
   8                   [ [ 'Far out in the uncharted backwaters of the unfashionable end of the western spiral\n' ]
   9                    ,[ 'arm of the Galaxy lies a small unregarded yellow sun.\n' ]
  10                    ,[ '\n' ]
  11                    ,[ 'Orbiting this at a distance of roughly ninety-two million miles is an utterly\n' ]
  12                    ,[ 'insignificant little blue-green planet whose ape-descended life forms are so \n' ]
  13                    ,[ 'amazingly primitive that they still think digital watches are a pretty neat idea.\n' ]
  14                    ,[ '\n' ]
  15                    ,[ 'This planet has - or rather had - a problem, which was this: most of the people\n' ]
  16                    ,[ 'living on it were unhappy for pretty much of the time.\n' ]
  17                    ,[ 'Many solutions were suggested for this problem, but most of these where largely\n' ]
  18                    ,[ 'concerned with the movements of small green pieces of paper, which is odd because\n' ]
  19                    ,[ 'on the whole it wasn\92t the small green pieces of paper that were unhappy.\n' ]
  20                   ]
  21
  22 words :: // meest algemene type
  23 words ...