Replace Function to Functor by Kleisli