module Main
    where

import Foreign
import Foreign.C.Types
import Foreign.C.String

foreign import ccall "SSLeay_version" ssleay_version :: Int -> CString

main = do
    str <- peekCString(ssleay_version(0))
    putStrLn str
