import CReal
import Complex
import CRealErf
import qualified Erf

default (CReal)

main :: IO ()
main = do
    print 1
    print $ sqrt 2
    print $ sin 1
    print $ exp (0 :+ pi) + 1
    putStr $ unlines $ map show $ [ (e1-e2)
				   | x <- [0,0.1 .. 1],
				    let e1 = CRealErf.erf (fromRational x),
				    let e2 = Erf.erf (fromRational x) ]