module Main where

import Parser
import Simplify

main :: IO ()
main =
  do p <- parser 0
     case p of
       Ok a   -> do { print (opt_character $ init_character a) }
       Fail s -> do { putStrLn ("Parsing failed: " ++ s) }