visualizeGoogLeNetScaled :: IO ()
visualizeGoogLeNetScaled = do
  (file, handle) <- openTempFile "/tmp" "graphScaled.pdf"
  hClose handle
  f <- parse alexNetSmall & visualizeWith (scaled downscaleReLU) & pdf file
  _ <- system $ printf "open %s &" f
  return ()
      where
        downscaleReLU lp = go (layerTy lp)
            where
              go ReLU = 1
              go _ = 2
visualizeGoogLeNetScaled :: IO ()
visualizeGoogLeNetScaled = do
  (file, handle) <- openTempFile "/tmp" "graphScaled.pdf"
  hClose handle
  f <- parse alexNetSmall & visualizeWith (scaled downscaleReLU) & pdf file
  _ <- system $ printf "open %s &" f
  return ()
      where
        downscaleReLU lp = go (layerTy lp)
            where
              go ReLU = 1
              go _ = 2
visualizeGoogLeNetScaled = do
  (file, handle) <- openTempFile "/tmp" "graphScaled.pdf"
  hClose handle
  f <- parse alexNetSmall & visualizeWith (scaled downscaleReLU) & pdf file
  _ <- system $ printf "open %s &" f
  return ()
      where
        downscaleReLU lp = go (layerTy lp)
            where
              go ReLU = 1
              go _ = 2