normalizePitch n@(N (C,o,_,_,_)) 
  | o > 4 = normalizePitch (lower (7*(o-4)) n)
  | o < 4 = normalizePitch (raise (7*(4-o)) n)
  | otherwise = n
normalizePitch n@(N (C,o,_,_,_)) 
  | o > 4 = normalizePitch (lower (7*(o-4)) n)
  | o < 4 = normalizePitch (raise (7*(4-o)) n)
  | otherwise = n
normalizePitch n@(N (C,o,_,_,_)) 
  | o > 4 = normalizePitch (lower (7*(o-4)) n)
  | o < 4 = normalizePitch (raise (7*(4-o)) n)
  | otherwise = n