n1 = [0..66]
n2 = [0..33]
n3 = [0..13]
n4 = [0..6]
b n1 n2 n3 n4 = [ (x1, x2, x3, x4)  | 
        x1 <- n1 , x2 <- n2 , x3 <- n3 , x4 <- n4 ,
         1 * x1 + 2 * x2 + 5 * x3 + 10 * x4 == 66 ]

main = do
  print $ length ( b n1 n2 n3 n4 )