fixed (~r 0 #:notation 'exponential ....) bugs
some random testing for (~r #:notation 'exponential ....)
fix estimate of order of magnitude for ~r