use complement in parse-date.lisp
add generate-text.lisp