[racket] Contract for function with vararg

How to make a contract, that accepts 
(-> input-port? any/c any)
(-> input-port? any/c any/c any)
(-> input-port? any/c any/c any/c any)
...
and
(->* (input-port? any/c) #:rest list? any)

So theare should be at least two args and first arg should be input-port.

-- 
Roman Klochkov
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.racket-lang.org/users/archive/attachments/20140629/ad044736/attachment.html>