8 lines
105 B
Plaintext
8 lines
105 B
Plaintext
|
defn main = {
|
||
|
|
case True of {
|
||
|
|
True -> { 1 }
|
||
|
|
False -> { 0 }
|
||
|
|
n -> { 2 }
|
||
|
|
}
|
||
|
|
}
|