torch :: IO ()
torch = do
  print $ parse alexNetSmall & clean & expand'
  print $ parse alexNetSmall & clean & flattenStructure
  let Just s' = parse alexNet & Torch.backend
  putStr s'
  return ()
torch :: IO ()
torch = do
  print $ parse alexNetSmall & clean & expand'
  print $ parse alexNetSmall & clean & flattenStructure
  let Just s' = parse alexNet & Torch.backend
  putStr s'
  return ()
torch = do
  print $ parse alexNetSmall & clean & expand'
  print $ parse alexNetSmall & clean & flattenStructure
  let Just s' = parse alexNet & Torch.backend
  putStr s'
  return ()