Haskell to SVG tiered spirograph