10 lines
152 B
Text
10 lines
152 B
Text
data Maybe ('a) where {
|
|
Nothing : Maybe ('a)
|
|
Just : 'a -> Maybe ('a)
|
|
};
|
|
|
|
id : 'a -> 'a ;
|
|
id x = x ;
|
|
|
|
main : Maybe ('a -> 'a) ;
|
|
main = Just id ;
|