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

main : Bool () -> a -> Int ;
main b = case b of {
    False => (\x. 1);
    True => \x. 0;
};