(((o(*ﾟ▽ﾟ*)o)))(((o(*ﾟ▽ﾟ*)o)))(((o(*ﾟ▽ﾟ*)o)))(((o(*ﾟ▽ﾟ*)o)))

chomad.scm

(define (o . opts)
  (let-optionals* opts [ (f #f)
                         (g #f) ]
    (if f
      (begin
        (display "(((o(")
	(f)
	(g)
	(pa$ o f g))
      (begin
	(display ")o)))")
        o))))
(define (*ﾟ▽ﾟ*) (lambda () (display "*ﾟ▽ﾟ*")))

(((o(*ﾟ▽ﾟ*)o))) ; (((o(*ﾟ▽ﾟ*)o)))(((o(*ﾟ▽ﾟ*)o)))(((o(*ﾟ▽ﾟ*)o)))