14 lines
211 B
Plaintext
14 lines
211 B
Plaintext
defn not b = {
|
|
case b of {
|
|
False -> { True }
|
|
True -> { False }
|
|
}
|
|
}
|
|
defn booli b = {
|
|
case b of {
|
|
False -> { 0 }
|
|
True -> { 1 }
|
|
}
|
|
}
|
|
defn main = { booli (not False) }
|