(io-buffer-mode! *io-out* :block)(for-each (λ (e)           (let ((v (top-level-value e)))                (when (and (fn? v)                           (not (builtin? v)))                      (print e)                      (newline)                      (fn-disasm v)                      (newline))))          (environment))