(define* (add-multicolumn-acct-table
          table title accountlist maxindent get-cell-amount-fn cols-data #:key
          (omit-zb-bals? #f)
          (show-zb-accts? #t)
          (disable-indenting? #f)
          (hide-accounts? #f)
          (hide-grand-total? #f)
          (depth-limit #f)
          (negate-amounts? #f)
          (recursive-bals? #f)
          (account-anchor-fn #f)
          (get-col-header-fn #f)
          (get-cell-orig-amount-fn #f)
          (get-cell-anchor-fn #f))
 .....)

(define (add-to-table title accountlist #:rest)
  (add-multicolumn-acct-table 'table title accountlist 5 #f #f #:rest))