(define-public (calculate-cumulated (account principal))
(let (
(previous-balance (unwrap-panic
(contract-call?
'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsusdt-v2-0
get-principal-balance
account))
)
(balance-increase
(-
(unwrap-panic
(contract-call?
'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsusdt-v2-0
get-balance
account
)
)
previous-balance
)
)
)
(ok
(print {
previous-user-balance: previous-balance,
current-balance: (+ previous-balance balance-increase),
balance-increase: balance-increase
})
)
)
)