Made replicate a particular case of replicateA, using the Identity monad.