;; (when (> (random) .1) (print 'ca) (print 'ciao)) (define-macro (when-random x . args ) `(when (> (random) ,x) (begin ,@args)))