impl allergies.hs