Using Patterns for Dialog Programs

(defun dialog ( )

(print 'type something in parentheses)

(loop

(setq user-input (read))

(cond ((condition1) (action1))

((condition2) (action2))

...

((conditionk) (actionk)) )

) ) )