[
    shell>> [
        [
            dup child>> face?
            [ , ] [ drop ] if
        ] each-pface
    ] each-shell
] { } make