JointPhotographicExpertsGroupTonga.hs: example