(def twice (mac (x)
  (list 'progn x x)))

(def when (mac (cond . body)
  (list 'if cond (cons 'progn body))))

(when (= 1 1)
  (twice (write "ok\n")))