(defmacro while [test body] 
  (when test body (while test body)))