module Main (main) where
import qualified Text.Parsec as Parsec
import qualified Ubc.Parse.Syntax.File as File

main :: IO ()
main = do
        text <- getContents

        print $ Parsec.parse File.parse "<stdin>" text