Add 9th notes in haskell