&econ`fun.words-to-ints %ve=localize(ufun(%ve/econ`fun.pad,switch(%0,Nothing,0,setq(0,squish(%0))[iter(get(%vi/econ`M),setq(2,0)[null(iter(remove(lattr(%vi/econ`M`%i0`*),ECON`M`%i0`LONGNAME),setq(3,,4,last(%i0,`),1,^\(\\Q[edit(get(%vi/%i0`forms),|,\\E|\\Q,*,\\E.*\\Q,?,\\E.\\Q)]\\E\)$)[iter(%q0,null(regmatchi(%i0,^ *(\[0-9\]+) *(.+?) *$,1:8 2:9))[if(regmatchi(%q9,%q1),setq(2,add(%q2,mul(%q4,%q8)))[setq(0,remove(%q0,%qi,\,))])],\,)]))]%q2,|,|)]|[iter(get(%vi/econ`c),setq(2,0,3,,1,^\(\\Q[edit(get(%vi/econ`c`%i0`forms),|,\\E|\\Q,*,\\E.*\\Q,?,\\E.\\Q)]\\E\)$)[null(iter(%q0,null(regmatchi(%i0,^ *(\[0-9\]+) *(.+?) *$,1:8 2:9))[if(regmatchi(%q9,%q1),setq(2,add(%q2,%q8))[setq(0,remove(%q0,%i0,\,))])],\,))]%q2,|,|)])))


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