data True() where {
    True: True()
};
main: Int;
main =
    case True of {
        True => 1;
        _ => 0;
    };