slurpFile :: FilePath -> IO (V.Vector LabelPixel)
slurpFile = fmap (V.fromList . map make . tail . C.lines) . C.readFile where
  readInt' !bs = let Just (i, _) = C.readInt bs in i
  labelPixel (lbl:pxls) = LabelPixel (readInt' lbl) (UV.fromList $ map readInt' pxls)
  make = labelPixel . C.split ',' . trim
slurpFile :: FilePath -> IO (V.Vector LabelPixel)
slurpFile = fmap (V.fromList . map make . tail . C.lines) . C.readFile where
  readInt' !bs = let Just (i, _) = C.readInt bs in i
  labelPixel (lbl:pxls) = LabelPixel (readInt' lbl) (UV.fromList $ map readInt' pxls)
  make = labelPixel . C.split ',' . trim
slurpFile = fmap (V.fromList . map make . tail . C.lines) . C.readFile where
  readInt' !bs = let Just (i, _) = C.readInt bs in i
  labelPixel (lbl:pxls) = LabelPixel (readInt' lbl) (UV.fromList $ map readInt' pxls)
  make = labelPixel . C.split ',' . trim