Binary tree as a dictionnary in scheme