(letr self (object print (fn () (+ "#<table of length " len.self ">"))) self)
And soon I'll try changing it so you don't even need the letr:
(object print (fn () (+ "#<table of length " len.self ">")))
In this kind of situation I use a utility I call 'named:
(named foo bar) --> (ret foo nil (= foo bar))
-----