Exercise2.63Eachofthefollowingtwoproceduresconvertsabinarytreetoalist.(define(tree->list-1tree)(if(null?tree)'()(append(tree->list-1(left-branchtree))(cons(entrytree)