(define impc:ti:word-downcase (lambda (w) (let* ((n (string->list w)) (u (char-downcase (car n))) (n1 (list->string (cons u (cdr n))))) n1)))