(import (scheme) (chicken base))

(map (lambda (l)
       (case l
         ((()) (print "it's empty: " l))            ; this one..
         (else (print "it's not empty: " l)))
       (case l
         ('() (print "it's empty: " l))             ; ...or this one?
         (else (print "it's not empty: " l))))
     (list '() '("a" "b" "c")))