PLEASE ANSWER IN THE SCHEME LANGUAGE ONLY! I REALLY APPRECIATE YOUR HELPING ME WITH THIS QUESTION!!

replaceallwith* takes an atom a list that can contain sublists and a list of atom. Each occurrence if the atom in the first list is replaced by one of the atoms of the second list, in order. So, the first occurrence of the atom in the first list is replaced by the first atom of the second list, the second occurrence is replaced by the second atom of the second list, and so on. If there are not enough atoms in the second list, the rest of the first list is unchanged. >(replaceallwith*x(abx((cd((x)ef(x)g(xixj)))(123456789))(ab1((cd((2)ef3)g(4i56j))))