Problem:
Score : 600 points

Problem Statement

There are N people, conveniently numbered 1 through N.
We want to divide them into some number of groups, under the following two conditions:

Every group contains between A and B people, inclusive.

Let F_i be the number of the groups containing exactly i people. Then, for all i, either F_i=0 or C≤F_i≤D holds.

Find the number of these ways to divide the people into groups.
Here, two ways to divide them into groups is considered different if and only if there exists two people such that they belong to the same group in exactly one of the two ways.
Since the number of these ways can be extremely large, print the count modulo 10^9+7.

Constraints

1≤N≤10^3

1≤A≤B≤N

1≤C≤D≤N

Input

The input is given from Standard Input in the following format:

N A B C D

Output

Print the number of ways to divide the people into groups under the conditions, modulo 10^9+7.

Sample Input 1

3 1 3 1 2

Sample Output 1

4

There are four ways to divide the people:

(1,2),(3)

(1,3),(2)

(2,3),(1)

(1,2,3)

The following way to divide the people does not count: (1),(2),(3). This is because it only satisfies the first condition and not the second.

Sample Input 2

7 2 3 1 3

Sample Output 2

105

The only ways to divide the people under the conditions are the ones where there are two groups of two people, and one group of three people.
There are 105 such ways.

Sample Input 3

1000 1 1000 1 1000

Sample Output 3

465231251

Sample Input 4

10 3 4 2 5

Sample Output 4

0

The answer can be 0.

Solution in Haskell (GHC 7.10.3) (judge verdict: Wrong Answer)

import Control.Applicative
import Data.List (nub)

countUpGroups gs i = take i gs ++ [(x,f+1)] ++ drop (i+1) gs
  where (x,f) = gs !! i

groupPatterns :: Integer -> Integer -> Integer -> [(Integer,Integer)] -> [[(Integer,Integer)]]
groupPatterns n c d gs
  | count > n = []
  | any (\(_,f)->(f<c||d<f)&&f/=0) gs = []
  | count == n = [gs]
  | otherwise = concatMap (groupPatterns n c d) gss
  where count = sum $ map (uncurry (*)) gs :: Integer
        gss = map (countUpGroups gs) [0..length gs-1]

factorial 0 = 1
factorial n = n*factorial (n-1)

solve :: Integer -> [(Integer,Integer)] -> Integer
solve n gs = ans `div` product (filter (/=0) (map snd gs))
    where egs = concatMap (\(x,f) -> replicate (fromIntegral f) x) gs
          ans = factorial n `div` product (map factorial egs)

main = do
  [n,a,b,c,d] <- map read.words <$> getLine :: IO [Integer]
  print $ sum $ map (solve n) $ nub $ groupPatterns n c d [(x,0)|x<-[a..b]]