: (squish) ( seq quot: ( obj -- ? ) -- )
    2dup call [ '[ _ (squish) ] each ] [ drop , ] if ; inline recursive