(bind-func for-each:[void,[!a,!b]*,List{!b}*]* (lambda (func xs) (let ((f (lambda (l) (if (null? l) void (begin (func (car l)) (f (cdr l))))))) (f xs))))