LP:Implementando calculo imc em lisp