#lang typed/scheme

(: foo : (Integer -> Integer -> Integer))
(define ((foo x) y) 1)