added funcoes.lisp