{-# LANGUAGE NoImplicitPrelude #-}
data False
data True = True
data And a b = And a b
type Not a = a -> False
false :: False
false = false
багор :: a -> And a (Not a)
багор a = And a (\ _ -> false)
ey0jIExBTkdVQUdFIE5vSW1wbGljaXRQcmVsdWRlICMtfQppbXBvcnQgUHJlbHVkZSAocmV0dXJuKQpkYXRhIEZhbHNlCmRhdGEgVHJ1ZSA9IFRydWUKCmRhdGEgQW5kIGEgYiA9IEFuZCBhIGIKCnR5cGUgTm90IGEgPSBhIC0+IEZhbHNlCgpmYWxzZSA6OiBGYWxzZQpmYWxzZSA9IGZhbHNlCgrQsdCw0LPQvtGAIDo6IGEgLT4gQW5kIGEgKE5vdCBhKQrQsdCw0LPQvtGAIGEgPSBBbmQgYSAoXCBfIC0+IGZhbHNlKQoKbWFpbiA9IHJldHVybiAoKQ==