Create pitchers.hs