Tangente

Usei esta subrotina, mas não a defini na rotina Mlh2
mas ai está:

---

(defun tan (ang)
  (/ (sin ang)
     (cos ang)))

---