-x(scheme r5rs)
-p(map (lambda (x) (* x x)) '(0 1 2 3 4 5))