Product of Two Numbers in LISP

Here is a simple program that I wrote using Common LISP that will ask the user to give two numbers and then our program will compute the product of the two numbers being provided by our user. I am using Common LISP is open source and free to download in the Internet.

You can get the latest CLISP for Windows from here - https://sourceforge.net/projects/clisp/files/latest/download

 I am currently accepting programming work, it project, school 

programming projects , thesis and capstone projects, IT consulting 

work, computer tutorials and web development work kindly contact me in the following email address for further details.  If you want to advertise in my website kindly contact me also in my email address also. Thank you.

My email address are the following jakerpomperada@gmail.com and jakerpomperada@yahoo.com.

My mobile number here in the Philippines is 09173084360.

My telephone number at home here in Bacolod City, Negros Occidental Philippines is  +63 (034) 4335675.

Sample Program Output

product.lisp

(defun Product()

   (terpri)

   (format t "Product of Two Numbers in LISP ~%")

   (format t "~%~%")

   (format t "Created By Mr. Jake R. Pomperada, MAED-IT")

   (format t "~%~%")

   (princ "Enter First Value :  ")

   (setq a (read))

   (princ "Enter Second Value :  ")

   (setq b (read))

   (setq product (* a b))

   (format t "~%~%")

   (format t "The product is ~D." product)

   (format t "~%~%")

   (format t "End of Program")

)

(Product)