 distribution, without checking whether the parameter are valid
-- (from @Statistics.Distribution.Gamma@)
-- 
-- > λ> mwc $ listOf 10 (improperGamma 3 0.1)
-- > [ 0.30431838005485,0.4044380297376584,2.8950141419406657e-2
-- > , 0.468271612850147,0.18587792578128381,0.22735854572527045
-- > , 0.5168050216325927,5.896911236207261e-2,0.24654560998405564
-- > , 0.10557650513145429 ]
improperGamma :: PrimMonad m
              => Double -- ^ shape parameter k
              -> Double -- ^ scale parameter theta
              -> RandT m Double
improperGamma k theta = continuous $ improperGammaDistr k theta

-- | Geom
improperGamma :: PrimMonad m
              => Double -- ^ shape parameter k
              -> Double -- ^ scale parameter theta
              -> RandT m Double
improperGamma k theta = continuous $ improperGammaDistr k theta
improperGamma k theta = continuous $ improperGammaDistr k theta