instance Show Object where
    show (Square s s2) = (show s) ++ (show s2)
    show (Circle c) = (show c)
    show (Arrow a) = (show a)