pi/src/Main.idr

module Main

import Core.Check
import Core.Term
import Parser.Parse

main : IO ()
main = do
  str <- getLine
  case parse0 str of
       Left e  => putStrLn e
       Right t => print t