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

main :: IO ()
main = putStr. unlines . map show . map combi . map read . lines =<< getContents