Time to tweak this little baby:

(= gravity* 1.4 timebase* 120 front-threshold* 1)

  (def frontpage-rank (s (o gravity gravity*))
    (/ (- (realscore s) 1)
       (expt (/ (+ (item-age s) timebase*) 60) gravity)))

  (def realscore (i) (- i!score i!sockvotes))

  (def item-age (i) (hours-since i!time))