ict :: SVM -> V.Vector Double -> Double
predict (SVM fptr) vec = unsafePerformIO $
                           withForeignPtr fptr $ \modelPtr -> 
                           let nodes = convertDense vec
                           in realToFrac <$> V.unsafeWith nodes (c'svm_predict modelPtr)

du
predict :: SVM -> V.Vector Double -> Double
predict (SVM fptr) vec = unsafePerformIO $
                           withForeignPtr fptr $ \modelPtr -> 
                           let nodes = convertDense vec
                           in realToFrac <$> V.unsafeWith nodes (c'svm_predict modelPtr)
predict (SVM fptr) vec = unsafePerformIO $
                           withForeignPtr fptr $ \modelPtr -> 
                           let nodes = convertDense vec
                           in realToFrac <$> V.unsafeWith nodes (c'svm_predict modelPtr)