Add problem 10 in scheme
Refactor