main :: IO () main = do input <- getLine result <- runProcessor mkProcessor input case result of Right sexp -> print sexp Left err -> putStrLn $ "error: " ++ show err mkProcessor :: ProcessorT IO ArithmeticToken ArithmeticRule (SExp _ _) mkProcessor = ProcessorT $ do token <- lex events <- parse token consume events