adding Shapes.hs