(defun get_array () 
"This function gets a 4x4 array from the user and print it out in a nicely
formatted way"
	(prog  
		( 
			(a (make-array '(4 4)))
			(i)
			(j)
		)
			
		(dotimes (i 4 )
			(dotimes (j 4)
			(format t "~%Enter the (~A, ~A) coordinate of the
array A \:" i j)
				   
				(setf (aref a i j) (read))
			)
		)
		(format t "~%The array you entered looks like:~%")
		(format t "(")
		(dotimes (i 4 )
			(if (> i 0) (format t "~%"))
			(format t "(")
			(dotimes (j 4)
				(format t "~A " (aref a i j) )
			)
			(format t ")")
		)
		(format t ")" )
		
	)
)