2003-07-05 split Scheme (define (split str c) (let *1 (split (substring (+ 1 n) c)))))) *1:n (string-index str c))) (if (not n) (list str) (append (list (substring str 0 n