(define (item n sent) (if (empty? n) 0 (accumulate word (first ((repeated bf (- (parse n) 1)) sent)))))
(define (parse x) (first x))
(item 321 \'abc)