data List (a) where {
  Nil  : List (a)
  Cons : a -> List (a) -> List (a)
};

test xs = case xs of {
    Cons Nil _ => 0 ;
};



List a /= List (List a)

a /= List a
