sharp, flat, raise, lower, halve, double, dot, undot :: Integer -> Note -> Note

sharp i n = let (l,o,a,h,d) = runN n in N (l,o,a+i,h,d)
sharp, flat, raise, lower, halve, double, dot, undot :: Integer -> Note -> Note
sharp i n = let (l,o,a,h,d) = runN n in N (l,o,a+i,h,d)
sharp i n = let (l,o,a,h,d) = runN n in N (l,o,a+i,h,d)