toInt :: (String -> Int)
toInt x = read x ::Int

getInts = do
  x <- getLine
  let y = (map$toInt)$words x 
  return y

comb :: Int -> Int -> Int
comb n r = if n - r > r 
  then foldl (\acc x -> acc * x `div` (x - n + r) `mod` (10^9+7)) 1 [n-r+1..n] 
  else foldl (\acc x -> acc * x `div` (x - r) `mod` (10^9+7)) 1 [r+1..n] 


prime :: Int -> Bool
prime n = length([x | x <- [1..n], n `mod` x == 0 ]) == 2

ruijo :: Int -> Int -> Int -> (Int, Int)
ruijo p c n = do
  case n `mod` p of
    0 -> ruijo p (c + 1) (n `div` p)
    _ -> (c, n)

fact :: Int -> Int -> [Int]
fact n c = do
  if c > n then []
  else if prime c && n `mod` c == 0 then 
    let (count, new_n) = ruijo c 0 n
        in if count > 0 then [count] ++  fact new_n (c + 1) else fact n (c + 1)
  else
    fact n (c + 1)
  

main :: IO ()
main = do
  [n, m] <- getInts
  print $ foldl (\acc a -> acc * comb (a+n-1) a  `mod` (10^9+7)) 1 $ fact m 2