5 Start = (r1, r2, r3, r4, nullRandomSeed, s1, s2, s3)
7 (r1, s1) = som2 nullRandomSeed
12 (bind1) infix 0 :: (St s a) (a -> (St s b)) -> St s b
13 (bind1) f g = uncurry g o f
15 som2 :: (RandomSeed -> (Int,RandomSeed))
16 som2 = (\s -> random s) bind1 (\a -> random (snd a))
18 seqList1 :: [St s a] -> St s [a]