dim as double ra,ar,sv,pd,tp,ts,tg,tr

ra=6371000.0       'radius of earth m
ar=4.0*ra*ra*pi    'surface area of earth m2
sv=2.0*ar          'inhabitable volume of primeval soup m3.
pd=10000^3         'density of organisms /m3
tp=sv*pd           'total population
ts=1000000         'timespan years
tg=ts*365.25*24    'total generations 1 per hour
tr=tp*tg           'total reproductions

print "Est. Microorganism reproductions on planet earth over "+str(ts)+"years = "+str(tr)

