- (square (if (= (length arg) 2)
- `(expt ,(nth 1 arg) 4)
- form))
- (expt (if (= (length arg) 3)
- (if (numberp (nth 2 arg))
- `(expt ,(nth 1 arg) ,(* 2 (nth 2 arg)))
+ (square (if (= (length arg) 2)
+ `(expt ,(nth 1 arg) 4)
+ form))
+ (expt (if (= (length arg) 3)
+ (if (numberp (nth 2 arg))
+ `(expt ,(nth 1 arg) ,(* 2 (nth 2 arg)))