Update same-shape.rkt