add a 'bind-button' function in scheme