From: auanon@airmail.cc   
      
   It's sad that there's not more org mode support. I wonder if gnus picks   
   up code using markdown formatting?   
   `With Ada.Text_IO;`   
   ```(setq names '(Case Molly Bobby))   
      
   (defun swap (inlist i j)   
     "Swaps element 1 and 2 in the list INLIST; returns a new list."   
     (let ((copy (copy-sequence inlist)))   
       (setf (nth i copy) (nth j inlist)   
             (nth j copy) (nth i inlist))   
       copy))   
      
   (defun unique-element-positions-p (list1 list2)   
     "returns nil if all element[n] of LIST1 and LIST2 are not equal,   
   else returns non-nil."   
   (let ((err 0))   
     (cl-loop for i from 0 to (- (length names) 1) do   
   	   (if (eq (nth i list1) (nth i list2))   
   	       (setq err 1)))   
     (if (/= err 0)   
         nil   
       t)))   
      
   (defun shuffle (inlist)   
     "Shuffles INLIST; returns a new list"   
     (let ((shuffledlist inlist))   
       (cl-loop for i from (- (length shuffledlist) 1) downto 1 do   
   	     (setq j (random i))   
   	     (setq shuffledlist (swap shuffledlist i j)))   
       (if (unique-element-positions-p inlist shuffledlist)   
   	shuffledlist   
         (shuffle inlist))))   
      
   (defun secretsanta (names)   
     "Assigns gifters and recievers for a game of secret santa"   
     (setq shuffledlist (shuffle names))   
       (cl-loop for i from 0 to (- (length names) 1) do   
   	     (message "%s will gift to %s" (nth i names) (nth i shuffledlist))))   
      
      
   (secretsanta names)```   
      
   or finally   
      
   ```   
   (defun square (x)   
     "Return x^2"   
    (* x x))   
   ```   
      
   --   
   PGP ID: 0xCBA5A1DB4336CE5EB5FDF1DF18B65A09AE9011BA   
      
   --- SoupGate-Win32 v1.05   
    * Origin: you cannot sedate... all the things you hate (1:229/2)