sounding .-. written, i.e. -P5 for horn
-- | Transposition interval.
transposition :: Instrument -> Interval
transposition = Data._transposition . fetchInstrumentDef
  where

-
transposition :: Instrument -> Interval
transposition = Data._transposition . fetchInstrumentDef
  where
transposition = Data._transposition . fetchInstrumentDef
  where