changeLine :: Parser InputLine
changeLine = do
  nr <- lineNumberP
  return (Number nr)
changeLine :: Parser InputLine
changeLine = do
  nr <- lineNumberP
  return (Number nr)
changeLine = do
  nr <- lineNumberP
  return (Number nr)