skipWhite :: Parser a -> Parser a
skipWhite p = do
  a <- p
  spaces
  return a
skipWhite :: Parser a -> Parser a
skipWhite p = do
  a <- p
  spaces
  return a
skipWhite p = do
  a <- p
  spaces
  return a