main = do
  args <- getArgs
  let key = head args
  randomNote <- randomRIO (0, 6) 
  randomSuff <- randomRIO (0, 6)
-- prints random key in scale
  putStrLn $ (deriveScale key !! randomNote)
-- prints random suffix
  putStrLn $ (suffix !! randomSuff)

-- sharp chromatic scale, for mapping
main = do
  args <- getArgs
  let key = head args
  randomNote <- randomRIO (0, 6) 
  randomSuff <- randomRIO (0, 6)
-- prints random key in scale
  putStrLn $ (deriveScale key !! randomNote)
-- prints random suffix
  putStrLn $ (suffix !! randomSuff)

-- sharp chromatic scale, for mapping
main = do
  args <- getArgs
  let key = head args
  randomNote <- randomRIO (0, 6) 
  randomSuff <- randomRIO (0, 6)
-- prints random key in scale
  putStrLn $ (deriveScale key !! randomNote)
-- prints random suffix
  putStrLn $ (suffix !! randomSuff)

-- sharp chromatic scale, for mapping