Procedure call profile for the cleaned up version of EM-IMP using
the macros in em-primitives1.sch, as profiled in Larceny 0.32.

13051672 calls to top-level procedures

2357710  18.1  exp
1371931  10.5  max
1184299   9.1  anonymous
1175598   9.0  floor
1175598   9.0  min
982522   7.5  ieee-log
982522   7.5  log
392666   3.0  make-matrix
391466   3.0  every-n
200333   1.5  first
197033   1.5  second
196433   1.5  %list
195734   1.5  call-with-current-continuation
195733   1.5  clip-eigenvalues!
195733   1.5  determinant
195733   1.5  invert-matrix!
195733   1.5  jacobi!
195733   1.5  make-matrix-initial
195733   1.5  model-sigma
195733   1.5  set-model-log-determinant-sigma!
195733   1.5  set-model-log-pi!
195733   1.5  set-model-pi!
195733   1.5  sum
 92676   0.7  e-step!
 92576   0.7  m-step!
 41742   0.3  modulo
 27342   0.2  logical:ash-4
 17271   0.1  logical:logxor
  3600   0.0  noise
  3600   0.0  rand
  3600   0.0  random:chunk
  3300   0.0  rest
   600   0.0  make-model
   600   0.0  positionv
   600   0.0  reduce
   600   0.0  vector->list
   400   0.0  reverse
   300   0.0  em!
   300   0.0  initial-z!
   220   0.0  char-numeric?
   200   0.0  map
   200   0.0  map-n
   200   0.0  remove-if-not
   200   0.0  void
   100   0.0  em-clusterer!
   100   0.0  ems!
    55   0.0  hex-string->number
    55   0.0  string->list
    55   0.0  substring
     1   0.0  em-imp-benchmark
     1   0.0  end-countcalls
     1   0.0  random:initialize
     1   0.0  run-benchmark
     1   0.0  string=?