> source("dblint.s")
[1] 102.0828
[1] 102.0828
[1] 102.0832
[1] 46.08324
[1] 46.08331