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