id : Mono Int -> Mono Int ;
id = \x. x ;

main : Poly a ;
main = id 3 ;