source("burn.s")
source("burn.s")
source("burn.s")
postscript("scr.ps",horiz=F)
source("burn.s")
graphics.off()
source("perc.s")
ls()
percx11()
percx11()
percx11()
percx11()
q()
percx11()
q()
