Haskell, pitchersAfterMove