- ((= (first L) '/) (/ (first P) (calculExp (rest P) (rest L))))
- ((cons (first L) (calculExp P (rest L))))))
-;(println (calculExp P L))
+ ((= (first L) '/) (calculExp (cons (/ (P 1) (first P)) (rest (rest P))) (rest L)))
+ ((calculExp (cons (first L) P) (rest L)))))
+(println "calculExp")
+(println (calculExp '() L))
+;(trace true)
+(println (calculExp '() M))
+
+;(trace nil)