Scheme parser haskell experiments