emmanueldenloye

{-# language OverloadedStrings #-}
import Data.Aeson (Value, decode)
import qualified Data.ByteString.Lazy.Char8 as BL
import Text.ParserCombinators.ReadP
import Control.Applicative hiding (many)
import Data.Char
import Data.Maybe (maybe)

data Expr = Json Value | StringLit String | Symbol String | Sexp [Expr] | Let [(String, Expr)] [Expr]
  deriving (Show)