Schemeで次のようなリストを生成したいのですが、
どういう手続きになるのでしょうか。

(define l '("a" "b" ("c" "c1" "c2")))
(define (foo l)
(?))
=> (list ("a" "b" "c" "c1")("a" "b" "c" "c2"))