#! /usr/local/bin/guile -s
!#
(define sake
  (lambda (list val)
    (if (eq? list ())
        val
        (sake (cdr list) (+ val (exp (string->number (car list)))))
        )
    )
  )
(display (log (sake (cdr (command-line)) 0)))
(newline)