-- Solve by just renaming:
-- invert => invertChromatic
-- (invertChromatic o . invertDiatonic o) => invertDiatonic o
>>> invertPitches c [c,d,eb,fs::Pitch]
[c,bb_,a_,gb_]
>>>
>>> invertDiatonic c [c,d,eb,fs::Pitch]
[c,b_,ab_,gs_]
>>> (invertDiatonic c . invertChromatic c) [c,d,eb,fs::Pitch]
[c,b_,as_,gb_]