; Test using a . as first parameter on a line by prefixing it with a second .
(define
(a i
. b)
(unless (>= i (length b))
(display (number->string (length b )))
(display (list-ref b i))
(newline)
(apply a ( + i 1 ) b)))
(a 0 "123" "345" "567")