main :: IO ()
main = do
  s <- readInputFile
  let commands = map (parseCommand . words) (lines s)
  print (runCommands commands onOrOff)
  print (runCommands commands brightness)
main :: IO ()
main = do
  s <- readInputFile
  let commands = map (parseCommand . words) (lines s)
  print (runCommands commands onOrOff)
  print (runCommands commands brightness)
main = do
  s <- readInputFile
  let commands = map (parseCommand . words) (lines s)
  print (runCommands commands onOrOff)
  print (runCommands commands brightness)