; T T => T T ; F F => F F ; T F => F T ; F T => T F (defun main (&rest argv) (declare (ignorable argv)) (let* ((a (read)) (b (read))) (princ b) (princ #\space) (princ a) (terpri))) (main)