Write avl tree in scheme