Add shape.hs.