2356 klm@kth /tmp  ➤ 
csi -e '(define (x a1 a2 a3 a4 a5 a6 a7) #t) (x 1 2 3 4 5 6)'

Error: bad argument count
7
6

2356 klm@kth /tmp  ➤ 
csi -e '(define (x a1 a2 a3 a4 a5 a6 a7 #!key X) #t) (x 1 2 3 4 5 6)'

Error: bad argument count
1
6