;;;+JMJ                                        -*-LISP-*-

(defun sinewave ()
  (loop for n from 0 to 160
	do (let ((a (truncate (+ 26 (* 25 (sin (/ n 4)))))))
	     (princ (make-string a :initial-element #\space))
	     (if (= 0 (mod n 2))
		 (princ "CREATIVE")
		 (princ "COMPUTING"))
	     (terpri))))