parseInput :: Parser InputLine
parseInput =
  choice [ printCurrent
         , printCurrentNumeric
         , deleteCurrent
         , printLines
         , printLinesWithNumbers
         , deleteLines
         , writeFilename
         , runCommand
         , write
         , quit
         , append
         , change
         , changeLine
         ]
parseInput :: Parser InputLine
parseInput =
  choice [ printCurrent
         , printCurrentNumeric
         , deleteCurrent
         , printLines
         , printLinesWithNumbers
         , deleteLines
         , writeFilename
         , runCommand
         , write
         , quit
         , append
         , change
         , changeLine
         ]
parseInput =
  choice [ printCurrent
         , printCurrentNumeric
         , deleteCurrent
         , printLines
         , printLinesWithNumbers
         , deleteLines
         , writeFilename
         , runCommand
         , write
         , quit
         , append
         , change
         , changeLine
         ]