module test

import StdEnv, StdArrayExtensions
import Data.Func, Math.Random
import Gast
import Gast.CommandLine

//num :== 10000000
//lim :== 100
//
//Start :: {!Int}
//Start
//	= foldl (flip (updateArrElt inc)) (createArray lim 0)
//	$ take num
//	$ map (\x->size $ hd [x,""])
//	$ ggenString lim 8.0 0 127

Start w = exposeProperties [Verbose] [Tests 10000]
	[ (\a->a == a) For ggenString 5 16.0 32 33 aStream
	] w