title redshift 1000 recombination epoch
normalize lines to "Ca B" 4861
hden 0
abundances primordial
case b
blackbody 3000 lte
print ages
stop zone 1
iterate
print last iteration
hydrogen levels large
*print h-like 50
print departure coef
assert line "H  1" 4861 80.5
assert hydrogen 2 tempeature 3000
assert ionization hydrogen 2 -0.709
punch asserts "z3.asr"
c z3.in
