(define impc:ti:remove-single-element-lists
(lambda (l)
(map (lambda (k)
;; (println 'k k)
(if (list? k)
(if (= (length k) 1)
(car k)
(impc:ti:remove-single-element-lists k))
k))
l)))