TODO filter everything with .x. in them

soundId :: Instrument -> String
soundId = Data._soundId . fetchInstrumentDef

-
soundId :: Instrument -> String
soundId = Data._soundId . fetchInstrumentDef
soundId = Data._soundId . fetchInstrumentDef