> module Picture(module Picture, module Shape) where

> import Shape

> type Color = (Double, Double, Double)

> type Property = (String,String)

> class Picture p where
>   emptyPic       ::                    p s
>   above          :: p s      -> p s -> p s
>   prim           :: s               -> p s
>   setProp        :: Property -> p s -> p s