let ncr n r =
  if r >= 0 && n >= r then
    let min = if r > n-r then n-r else r in
    let rec loop n1 r1 i = function
        j when j = min + 1 -> n1/r1
      | j -> loop (n1*i) (r1*j) (i-1) (j+1)
    in loop 1 1 n 1
  else
    0
;;

let a = Array.init 51 (fun x -> 0);;
let () =
  let rec loop b = function
      19 -> ()
    | i ->
       let t = ncr (i+3) i and
           v = b + 4*(ncr (i-8) (i-10)) in
       a.(i) <- t-v;
       a.(36-i) <- a.(i);
       loop v (i+1)
  in loop 0 0;;

let rec read () =
  try let n = read_int () in
      Printf.printf "%d\n" a.(n);read ()
  with End_of_file -> ()
;;

let () = read ();;