Pascal Engélibert
--- a/pallets/universal-dividend/src/lib.rs
+++ b/pallets/universal-dividend/src/lib.rs
            let total_weight: Weight = 0;

            let ud_amount = <CurrentUdStorage<T>>::try_get().expect("corrupted storage");
-            let mut monetary_mass = <MonetaryMassStorage<T>>::try_get().expect("corrupted storage");
+            let monetary_mass = <MonetaryMassStorage<T>>::try_get().expect("corrupted storage");

            for account_id in T::MembersIds::get() {
                T::Currency::deposit_creating(&account_id, ud_amount);
-                monetary_mass += ud_amount;
                Self::write_ud_history(n, account_id, ud_amount);
            }

-            <MonetaryMassStorage<T>>::put(monetary_mass);
+            <MonetaryMassStorage<T>>::put(monetary_mass + ud_amount * members_count);
--- a/pallets/universal-dividend/src/lib.rs
+++ b/pallets/universal-dividend/src/lib.rs
            sp_io::offchain_index::set(key.as_ref(), ud_amount.encode().as_ref());
        }
    }
+
+    // CALLS //
+    #[pallet::call]
+    impl<T: Config> Pallet<T> {
+        /// Transfer some liquid free balance to another account, in UD.
+        #[pallet::weight(0)]
+        pub fn transfer_ud(
+            origin: OriginFor<T>,
+            dest: T::AccountId,
--- a/pallets/universal-dividend/src/lib.rs
+++ b/pallets/universal-dividend/src/lib.rs
+    #[pallet::call]
+    impl<T: Config> Pallet<T> {
+        /// Transfer some liquid free balance to another account, in UD.
+        #[pallet::weight(0)]
+        pub fn transfer_ud(
+            origin: OriginFor<T>,
+            dest: T::AccountId,
+            #[pallet::compact] value: BalanceOf<T>,
+        ) -> DispatchResultWithPostInfo {
+            let transactor = ensure_signed(origin)?;
+            let ud_amount = <CurrentUdStorage<T>>::try_get()
+                .map_err(|_| DispatchError::Other("corrupted storage"))?;
+            T::Currency::transfer(
+                &transactor,
+                &dest,
+                value * ud_amount,
--- a/pallets/universal-dividend/src/lib.rs
+++ b/pallets/universal-dividend/src/lib.rs
+    impl<T: Config> Pallet<T> {
+        /// Transfer some liquid free balance to another account, in UD.
+        #[pallet::weight(0)]
+        pub fn transfer_ud(
+            origin: OriginFor<T>,
+            dest: T::AccountId,
+            #[pallet::compact] value: BalanceOf<T>,
+        ) -> DispatchResultWithPostInfo {
+            let transactor = ensure_signed(origin)?;
+            let ud_amount = <CurrentUdStorage<T>>::try_get()
+                .map_err(|_| DispatchError::Other("corrupted storage"))?;
+            T::Currency::transfer(
+                &transactor,
+                &dest,
+                value * ud_amount,
+                ExistenceRequirement::AllowDeath,