<HTML><BODY>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</BODY></HTML>