(defun canon (a s)
  (setq d(/ (* s s (sin(* 2 a))) 9.8))
  (if (and (> d 490) (< d 510)) (format t "HIT! Landed at ~d" d) (format t "MISS! Landed at ~d" d) )
)