randVals :: StdGen -> ((Double, Double, Double), StdGen)
randVals g = ((x,y,z),g''')
    where (x, g'  ) = randomR (0,1) g
          (y, g'' ) = randomR (0,1) g'
          (z, g''') = randomR (0,1) g''
randVals :: StdGen -> ((Double, Double, Double), StdGen)
randVals g = ((x,y,z),g''')
    where (x, g'  ) = randomR (0,1) g
          (y, g'' ) = randomR (0,1) g'
          (z, g''') = randomR (0,1) g''
randVals g = ((x,y,z),g''')
    where (x, g'  ) = randomR (0,1) g
          (y, g'' ) = randomR (0,1) g'
          (z, g''') = randomR (0,1) g''