;; separates words delimited by empty spaces (define cl:string-tokenize (lambda (s) (cl:string-split s " ")))