-- double : _Int -> _Int ;
-- double n = n + n;

apply : ('a -> 'b -> 'c) -> 'a -> 'b -> 'c ;
apply f x = \y. f x y ;

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

add : _Int -> _Int -> _Int ;
add x y = x + y ;

main : _Int -> _Int -> _Int ;
main = (id add) 1 2 ;