module Main where

import Eval
import Lexer
import Parser
import Research

import Text.Megaparsec (runParser)

main :: IO ()
main = putStr $ show $ parseSapling "false = t"