3 import StdEnv, StdArrayExtensions
4 import Data.Func, Math.Random
6 import Gast.CommandLine
13 // = foldl (flip (updateArrElt inc)) (createArray lim 0)
15 // $ map (\x->size $ hd [x,""])
16 // $ ggenString lim 8.0 0 127
18 Start w = exposeProperties [Verbose] [Tests 10000]
19 [ (\a->a == a) For ggenString 5 16.0 32 33 aStream