getResult :: Sources' a => (a -> GPU b) -> Int -> b
getResult a n = fst (runGPU (a t)) 
    where 
      t = evalState (mkSrc "source" n) initState




--------------------------------------------------------------------------------
getResult :: Sources' a => (a -> GPU b) -> Int -> b
getResult a n = fst (runGPU (a t)) 
    where 
      t = evalState (mkSrc "source" n) initState




--------------------------------------------------------------------------------
getResult a n = fst (runGPU (a t)) 
    where 
      t = evalState (mkSrc "source" n) initState




--------------------------------------------------------------------------------