Haskell user defined data type

Question

I have datatype called

data Nesting a b = S (a,b) | C (Nesting a b,Nesting a b)

How can I create a depth function that computes the nesting depth