seconds  |     consed    |    calls   |  sec/call  |  name  
----------------------------------------------------------------
    21.095 |   529,295,696 |      1,396 |   0.015111 | NBAYES
     5.935 | 1,243,311,192 | 20,934,138 |  0.0000003 | GETBIN
     5.499 |   394,887,656 |  5,342,220 |   0.000001 | PARSE-FLOAT-HELP
     3.619 | 1,345,359,888 |      2,792 |   0.001296 | SETBINS
     2.570 |   126,425,320 | 21,024,359 |  0.0000001 | PARSE-FLOAT
     0.424 |    16,438,584 |          3 |   0.141458 | GETBINS
     0.107 |    15,832,000 |      1,396 |   0.000077 | GETNBAYESSCORE
     0.013 |        57,344 |      4,188 |   0.000003 | CLEARMARKS
     0.010 |     1,195,800 |          1 |   0.010418 | GETMINMAX
     0.007 |        49,152 |      1,396 |   0.000005 | GATHERDATA
     0.000 |             0 |          1 |   0.000000 | TRACK-STOP
     0.000 |             0 |          1 |   0.000000 | LEVELPRINT
     0.000 |             0 |          1 |   0.000000 | TRACK-START
     0.000 |             0 |      1,396 |   0.000000 | GETDATA
     0.000 |        81,920 |          2 |   0.000000 | CLEANDATA
     0.000 |         8,192 |          3 |   0.000000 | TRAIN
     0.000 |        16,120 |          1 |   0.000000 | SHOWRULESET
     0.000 |        32,752 |          3 |   0.000000 | DISTRIBUTION
     0.000 |        32,768 |          3 |   0.000000 | HT2LIST
     0.000 |         3,984 |          1 |   0.000000 | WRITETOFILE
     0.000 |     8,400,216 |          1 |   0.000000 | RDR
----------------------------------------------------------------
    39.281 | 3,681,428,584 | 47,313,302 |            | Total

(defun parse-float (str)
  (let ((pos (position #\. str)))
    (if (not pos)
	(parse-integer str)
      (parse-float-help str pos))))

(defun parse-float-help (str pos)
  (let ((new (remove #\. str))
	(len (length str)))
    (let ((int (parse-integer new)))
      (* (/ int (expt 10 (- len pos))) 10))))