getState :: Sources' a => (a -> GPU b) -> Int -> S
getState a n = runGPUs (a t) st'
    where 
      (t,srct) = runState (mkSrc "source" n) initState
      st' = st srct
getState :: Sources' a => (a -> GPU b) -> Int -> S
getState a n = runGPUs (a t) st'
    where 
      (t,srct) = runState (mkSrc "source" n) initState
      st' = st srct
getState a n = runGPUs (a t) st'
    where 
      (t,srct) = runState (mkSrc "source" n) initState
      st' = st srct