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