#lang typed/scheme
(require/typed scheme [procedure-arity (Procedure -> Natural)])