(define-once post (post-count this)) (print "{post} is a faggot") (set! post (-1+ post)) (? (> 0 post) ( >>8 ))