articulation = lens (fmap $ view articulation) (flip $ zipVoiceWithNoScale (set articulation))

varticulation = lens (fmap $ view articulation) (flip $ zipVoiceWithNoScale (set articulation))
varticulation = lens (fmap $ view articulation) (flip $ zipVoiceWithNoScale (set articulation))