import CReal import Complex import CRealErf default (CReal) main :: IO () main = do print 1 print $ sqrt 2 print $ sin 1 print $ exp (0 :+ pi) + 1 print $ erf 1