LZW compression demonstration in Common Lisp