Added racket source code. Need to translate to haskell now.