(defun area (x y)
    (* x y))

(defun circle (r)
    (expt (* pi r) 2))

(print (circle 5))
(print (area 5 6))