(bind-func forward_slide (lambda () (set! slide_idx (+ slide_idx 1)) (printf "slide: %d\n" slide_idx) slide_idx))