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

main = case True of {
    True => 1;
    False => 0;
                      };