import           Control.Applicative
import           Control.Monad
import           Data.List
import           Text.Printf

main :: IO ()
main = mapM_ (print . process . read) . lines =<< getContents
  where
    process n = length [(a,b,c,d)|a<-[0..9],b<-[0..9],c<-[0..9],d<-[0..9], a+b+c+d==n]

