Scheme solution to problem #1

This can be much more elegant, but that will take some time away and
some mulling over.
Implement sum with foldl