{-# Language LambdaCase, Strict #-}
module Main where

import Chi
import Interpreter.Haskell

main :: IO ()
main = getLine >>= print . eval . parse