module Main where

import qualified Numeric.BLAS.FFI.ComplexFloat as BlasComplexFloat
import qualified Foreign
import Foreign.Storable.Complex ()
import Data.Complex (Complex((:+)))


main :: IO ()
main = print =<< Foreign.with (2:+3) BlasComplexFloat.cabs1