* memory leak test
* derived from agaus_test.cir
.control
  define agauss(nom, avar, sig) (nom + avar/sig * sgauss(0))
  let val = agauss(1e-09, 1e-10, 3)
  quit  
.endc
.end