Today I ended up reading a particular post over at Black Grit, Inc. about their CafePress storefront.
Since mzscheme supports unicode, I would’ve done it like this (in R5RS code):
(define ♥
(lambda xs
(begin
(display "I ♥ ")
(let loop ((xs xs))
(display (car xs))
(if (not (null? (cdr xs)))
(begin
(display " ")
(display "and ")
(loop (cdr xs))))))))
so that you could write:
(♥ ’scheme)