op :: Parser String
op = do
  whitespace
  o <- operator
  whitespace
  return o
op :: Parser String
op = do
  whitespace
  o <- operator
  whitespace
  return o
op = do
  whitespace
  o <- operator
  whitespace
  return o