Scheme-interpreter-in-haskell is a project mainly written in Haskell, it's free.

A scheme interpreter implemented in Haskell