data Maybe ('a) where {
    Nothing : Maybe ('a)
    Just : 'a -> Maybe ('a)
};

id : 'a -> 'a ;
id x = x ;

main : Maybe ('a -> 'a) ;
main = Just id ;