Add swap function

C-c C-d s