Update pitchers.hs