PROBLEM IS IN DRRACKET

The current animation works with the following shape list (define si (make-shape "circle" (make-posn 350 50) "down" "red" 50)) (define s2 (make-shape "square" (make-posn 50 150) "right" "blue" 150)) (define s3 (make-shape "circle" (make-posn 150 450) "up" "orange" 100)) (define s4 (make-shape "square" (make-posn 450 350) "left" "pink" 200)) (define shapeList (list si s2 s3 s4)) Every time the user clicks on left mouse button, the animation must be reset Every time "d" key is pressed, one shape must be deleted QUESTION 1. Define a structure named shape which has type, posn, direction, color and size fields. Do a proper data definition, constructors, selectors and predicators. type field can only be either circle or square. posn field is the initial point the shape is drawn. direction field can only be left, right, up or down. This field represents the direction the shape moves towards. color and size fields represent the color and size of the shape. 2. Define a list of shapes which holds at least four shapes with different directions. 3. Use the big-bang function in Racket to animate all the shapes in the list of shapes at the same time. All shapes must appear in their initial point and move towards their direction. You may define helper methods and structures for this task. 4. When the user presses the "d" key, one shape should be removed from the animation 5. When the user clicks on the window, the animation should restart with all shapes. Note Your shapes don't have to be the same with the shapes in demo