module Main where
import CV.Image
import CV.ConnectedComponents
import CV.Bindings.Types


main = do
   Just x <- loadImage "Circle.png" >>= return . fmap unsafeImageTo8Bit
   cs <- contours x (C'CvPoint 0 0) 0 0 0
   print cs
   print "done"