12 lines
202 B
Text
12 lines
202 B
Text
data List ('a) where {
|
|
Nil : List ('a)
|
|
Cons : 'a -> List ('a) -> List ('a)
|
|
};
|
|
|
|
data Bool () where {
|
|
True : Bool ()
|
|
False : Bool ()
|
|
};
|
|
|
|
main : List ('a) ;
|
|
main = Cons 1 (Cons 0 Nil) ;
|