1(princ "Hello ALSA world\n") 2(princ "One " 1 "\n") 3(princ "Two " (+ 1 1) "\n") 4 5(defun myprinc (o) (progn (princ o))) 6(myprinc "Printed via myprinc function!\n") 7(unsetq myprinc) 8 9(defun printnum (from to) (while (<= from to) (princ " " from) (setq from (+ from 1)))) 10(princ "Numbers 1-10: ") (printnum 1 10) (princ "\n") 11(unsetq printnum) 12 13(defun factorial (n) (if (> n 1) (* n (factorial (- n 1))) 1)) 14(princ "Factorial of 10: " (factorial 10) "\n") 15(princ "Float test 1.1 + 1.35 = " (+ 1.1 1.35) "\n") 16(princ "Factorial of 10.0: " (factorial 10.0) "\n") 17(princ "Factorial of 20.0: " (factorial 20.0) "\n") 18(unsetq factorial) 19 20(setq alist '((one . first) (two . second) (three . third))) 21(princ "alist = " alist "\n") 22(princ "alist assoc one = " (assoc 'one alist) "\n") 23(princ "alist rassoc third = " (rassoc 'third alist) "\n") 24(unsetq alist) 25 26(&stat-memory) 27