cpuLine :: Parser CoreMetric
cpuLine = do
  name <- identifier <* space
  (u:n:sy:idl:io:ir:so:_) <- metrics
  return $ CoreMetric name u n sy idl io ir so
cpuLine :: Parser CoreMetric
cpuLine = do
  name <- identifier <* space
  (u:n:sy:idl:io:ir:so:_) <- metrics
  return $ CoreMetric name u n sy idl io ir so
cpuLine = do
  name <- identifier <* space
  (u:n:sy:idl:io:ir:so:_) <- metrics
  return $ CoreMetric name u n sy idl io ir so