(fn trace [x]
  `(do
     (print :trace ,(view x) (view ,x))
     ,x))

{ : trace }