import Data.Int

magic :: Int64
magic = 1000000007

(*%) :: Int64 -> Int64 -> Int64
x *% y = ((x * y) `mod` magic)

main = do
  [t, c] <- fmap (map read . words) getLine
  print . foldl1 (*%) . map (6*%) $ [c-3*t+1..c-2*t]