(while t
  (insert "(when t (if t t 'hi))\n"))