&econ`fun.can-give %vb=ulocal(econ`fun.can-give-sub,%2,,,,,,,,%0,%1)

&econ`cmd.give %va=$^\+give(/raw)? (.*?)=(.*)$: @nspemit/silent %#=ufun(%ve/tag,econ)[ufun(%vb/econ`fun.give,%2,%3,t(strlen(%1)))] ; @assert %q9 ; @verb %q0=%#,%q9,,o%q9,ufun(%ve/econ`msg.o%q9,%q1,%q2,%q0),a%q9,%q1,%q2
@set %va/econ`cmd.give=regexp

&econ`cmd.give-raw %va

&econ`cmd.take %va=$^\+take(/raw)? (.*?)=(.*)$: @nspemit/silent %#=ufun(%ve/tag,econ)[ufun(%vb/econ`fun.take,%2,%3,t(strlen(%1)))] ; @assert %q0 ; @verb %q0=%#,%q9,,o%q9,ufun(%ve/econ`msg.o%q9,%q1,%q2,%q0),a%q9,%q1,%q2
@set %va/econ`cmd.take=regexp

&econ`cmd.take-raw %va


+TMCS/ADDPACKAGE econ=Economy System/2.2g/A multi-currency, multi-denomination economy and resource system/\[+MONEY\]%b