runCommand :: Parser InputLine
runCommand = do
  char '!'
  cmd <- many1 anyChar
  return (RunCommand cmd)
runCommand :: Parser InputLine
runCommand = do
  char '!'
  cmd <- many1 anyChar
  return (RunCommand cmd)
runCommand = do
  char '!'
  cmd <- many1 anyChar
  return (RunCommand cmd)