janky guile command line parsing

anonymous-gist.

#!/usr/local/bin/guile \
-e main -s
!#
(define (main args)
        (map (lambda (arg) (display arg) (display " "))
             (cdr args))
        (newline))
(define (caddddr list)
  (car (cdr (cdr (cdr (cdr list))))))

(define (cadddddr list)
  (car (cdr (cdr (cdr (cdr (cdr list)))))))
(let
    (($0 (car (command-line)))
     ($1 (cadr (command-line)))
     ($2 (caddr (command-line)))
     ($3 (cadddr (command-line)))
     ($4 (caddddr (command-line)))
     ($5 (cadddddr (command-line))))

     (display $0)
     (newline)
     (display $1)
     (newline)
     (display $2)
     (newline)
     (display $3)
     (newline)
     (display $4)
     (newline)
     (display $5)
     (newline))