nCombinations :: Int -> Int
nCombinations n =
  length $ [(a, b, c, d) | a <- [0..9], b <- [0..9], c <- [0..9], d <- [0..9],
                           a + b + c + d == n]

main = interact $ unlines . map (\line -> show $ nCombinations $ read line) . lines