main :: IO (PickFn ())
main = do
  print intercircle
  print lemniscate
  print $ length lemniscate
  renderableToFile def "square.png" (toRenderable lemniscate)
main :: IO (PickFn ())
main = do
  print intercircle
  print lemniscate
  print $ length lemniscate
  renderableToFile def "square.png" (toRenderable lemniscate)
main = do
  print intercircle
  print lemniscate
  print $ length lemniscate
  renderableToFile def "square.png" (toRenderable lemniscate)