main = interact (unlines . map step . lines)

step :: String -> String
step line = show $ countSplit 4 $ read line

countSplit :: Int -> Int -> Int
countSplit 1 n
    | n >= 0 && n <= 9  = 1
    | otherwise         = 0
countSplit m n
    | n >= 0            = sum [countSplit (m-1) (n-k) | k <- [0..9]]
    | otherwise         = 0