(defun h(n a b c)(if(< 0 n)`(,@(h(decf n)a c b),(if(princ a)c),@(h n b a c))))(format t"
~{~A~}"(h(read)'a'b'c))