module test

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

num :== 100000000
lim :== 100

Start :: {!Int}
Start
	= foldl (flip (updateArrElt inc)) (createArray lim 0)
	$ map (flip (rem) lim)
	$ take num
	$ genRandInt 42