data Point = Point Integer Integer
instance Show Point where
    show (Point x y) = "Point at "++(show x)++","++(show y)


ponXAxis = flip Point 0


ponYAxis = Point 0


porigin = Point 0 0

data Circle = Circle Integer Integer Integer
instance Show Circle where
    show (Circle x y r) = "Circle at "++(show x)++","++(show y)++" with radius "++(show r)


conXAxis = flip Circle 0


conYAxis = Circle 0


catOrigin = Circle 0 0


c0OnXAxis = flip (flip Circle 0) 0


c0OnYAxis = flip (Circle 0) 0