Repl to the rescue: http://news.ycombinator.com/offerless
(defop offerless req
(offerlesspage (get-user req)))
(newscache offerlesspage user 90
(listpage user (msec)
ranked-stories*
[and (>= (realscore _) front-threshold*)
(cansee user _)
(no (begins _!title "Offer "))
_]
nil nil "offerless"))