module Main where

import           Control.Monad      (liftM2, unless)
import           Data.Number.CReal
import           Hascal
import           System.Environment (getArgs)


main :: IO ()
main = getArgs >>= liftM2 unless null
                   (putStrLn . showCReal 80 . hascal . concat)