4 (printf "<?xml version=\"1.0\" encoding=\"UTF-8\" standalone=\"no\"?>\n")
5 (printf "<svg xmlns=\"http://www.w3.org/2000/svg\">\n")
8 (let ((player-x (read))
10 (printf "<rect id=\"player\" x=\"~a\" y=\"~a\" width=\"10\" height=\"10\" style=\"fill:#00ff00\" />\n"
17 "<rect x=\"~a\" y=\"~a\" width=\"~a\" height=\"~a\" style=\"fill:#0000ff\" />\n"
18 (for/list ([_ 4]) (read)))))