c ' fossil CO2 declines 1% per year '
reset : true
scriptmode : direct 
emitmenu : constant
$a : 250 
$b : 6600
nexta  if ( $a < 550 ) (  sub setemit $a :+ 1 goto nexta ) 
carboncycle.changed : true 
go

setemit (
$c : $b * 0.99
$b _ carboncycle.fossil. ~ $a 
$c put $b 
)