(use-modules (ice-9 pretty-print)
             (evms))
(pretty-print
 (map (lambda(x) (x)) ((engine #:mode 'ro #:logfile #f) 'object-list)))
