module Main where

import Control.Monad
import System.Environment
import Data.Number.CReal
import Data.Complex

import Hascal


main :: IO ()
main = do
  args <- getArgs
  unless (null args) $
    putStrLn $
      either id prettyPrint $
        (hascal :: String -> Either String (Complex CReal)) $
          concat args