caffe :: IO ()
caffe = do
  let output = parse googLeNet & Caffe.middleEnd & Caffe.backend
  let names = output ^. NP._layer ^.. traverse . LP._name ^.. traverse . _Just
  print names
caffe :: IO ()
caffe = do
  let output = parse googLeNet & Caffe.middleEnd & Caffe.backend
  let names = output ^. NP._layer ^.. traverse . LP._name ^.. traverse . _Just
  print names
caffe = do
  let output = parse googLeNet & Caffe.middleEnd & Caffe.backend
  let names = output ^. NP._layer ^.. traverse . LP._name ^.. traverse . _Just
  print names