Potential group nesting problem in Diagrams?

circles.svg

DiagramsTutorial.hs

\begin{code}
{-# LANGUAGE NoMonomorphismRestriction #-}

import Diagrams.Prelude
import Diagrams.Backend.SVG.CmdLine

blue_dotted :: Diagram B R2
blue_dotted = circle 1 # fc blue
                   # lw veryThick
                   # lc purple
                   # dashingG [0.2,0.05] 0

green_circle :: Diagram B R2
green_circle = circle 1 # fc green # lw none

red_circle :: Diagram B R2
red_circle = circle 1 # fc red # lw none

double_circle :: Diagram B R2
double_circle = green_circle ||| red_circle

square_one :: Diagram B R2
square_one = square 1 # fc aqua `atop` circle 1

example = square_one ||| double_circle ||| circle 1 # showOrigin
main = mainWith example
\end{code}