Function singleton_or_wrap 

fn singleton_or_wrap(
    parts: Vec<CompoundBody>,
    wrap: fn(Vec<CompoundBody>) -> CompoundBody,
) -> CompoundBody

Unwrap a single-element list, otherwise wrap it with wrap.