Common Lisp

* (nth 1 '(1 2 3 4))

2
* (elt "1234" 1)

#\2

Explain this bullshit. argument order

>>15
It can be shorter. And better.

(define-syntax (define-macro stx)
  (syntax-case stx ()
    ((~ (n . a) . f) #'(~ n (lambda a . f)))
    ((~ n f)
     #'(define-syntax (n stx)
         (syntax-case stx ()
           ((k . r) #`#,(apply f (syntax->datum #'r))))))))

Now it accepts ``rest'' args and has less parentheses for the joy of faggots like >>16 or >>16.