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