(defmethod Square ((X number)) (* X X))   

(defclass circle () (radius))

(defmethod Area ((C Circle)) (* pi (Square (Radius C))))
(defmethod Area ((R Rectangle)) (* (Width R) (Height R)))
(defmethod Area ((Sq Square)) (Square (Width Sq)))