Add (index)

Clean up (print-object ((pode pode) stream) ... )