USING: kernel namespaces sequences assocs sequences.deep obj ;

IN: obj.misc

: related ( obj -- seq )
  objects dupd remove [ get values flatten member? ] with filter ;