(define impc:ti:gen-shadow (let ((n 0)) (lambda (x) (set! n (+ n 1)) (string->symbol (string-append (symbol->string x) "_s_" (number->string n))))))