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

data Bool () where {
    True : Bool () 
    False : Bool ()
};

main : List ('a) ;
main = Cons 1 (Cons 0 Nil) ;