14 lines
247 B
Text
14 lines
247 B
Text
-- 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 ;
|