bowling problem haskell sample