module Main where

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


main :: IO ()
main = getArgs >>= liftM2 unless null
       (putStrLn . maybe "Error. :(" prettyPrint .
        (hascal :: String -> Maybe (Complex CReal)) . concat)