go on sicp, sets as binary tree