module testsk

import Data.Func, Math.Random
import StdArray, StdList, StdFunc, StdArrayExtensions

num :== 10000000
lim :== 100

Start :: {!Int}
Start
	= foldl (flip (updateArrElt inc)) (createArray (lim*50) 0)
	$ take num
	$ map (\x->toInt ((ln x) * fromInt lim - 0.5))
	$ genRandReal 42