hascal-1.4.1: Main.hs

module Main where

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

import Hascal


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