module Main where

foreign import ccall unsafe "ctest2.h iprod" iprod :: IO()

main = do
    let base = round 0.03
    print $ "rounded base = " ++ (show base)
    iprod