> (string-split "hebrides" "")
'("" "h" "e" "b" "r" "i" "d" "e" "s" "")

(define (trim-empty lst)
  (filter (λ (s) (not (eq? s ""))) lst))

> (eq? "" (car (string-split "hebrides" "")))
#f