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

20440368 calls to top-level procedures

6967060  34.1  anonymous
2357710  11.5  exp
1371931   6.7  max
1175598   5.8  floor
1175598   5.8  min
982522   4.8  ieee-log
982522   4.8  log
477861   2.3  first
463380   2.3  +
391466   1.9  every-n
391466   1.9  make-matrix
391466   1.9  make-matrix-initial
289409   1.4  %list
289409   1.4  second
195734   1.0  call-with-current-continuation
195733   1.0  clip-eigenvalues
195733   1.0  determinant
195733   1.0  invert-matrix
195733   1.0  invert-matrix!
195733   1.0  jacobi
195733   1.0  jacobi!
195733   1.0  make-model
195733   1.0  matrix-columns
195733   1.0  matrix-copy
195733   1.0  matrix-rows
195733   1.0  sum
 92676   0.5  e-step
 92676   0.5  reduce-vector
 92576   0.5  m-step
 41742   0.2  modulo
 27342   0.1  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
  1800   0.0  k*v
   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
   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-fun-benchmark
     1   0.0  end-countcalls
     1   0.0  random:initialize
     1   0.0  run-benchmark
     1   0.0  string=?