monad: (k-Set \downarrow -): Set -->Set