Paste: region-faces

! doesn't work

: region-faces ( region -- faces )
    shell>>
    [ dup face >>predicate call [ >>child ] [ drop f ] if ]
    [ [ each-pface ] curry each-shell ] (collect) filter! ;