normalizePitch n@(N (l,_,_,_,_)) = normalizePitch (raise distToC n)
  where distToC = fromIntegral . length . takeWhile (/=C) . iterate (succ' 1) $ l
normalizePitch n@(N (l,_,_,_,_)) = normalizePitch (raise distToC n)
  where distToC = fromIntegral . length . takeWhile (/=C) . iterate (succ' 1) $ l
normalizePitch n@(N (l,_,_,_,_)) = normalizePitch (raise distToC n)
  where distToC = fromIntegral . length . takeWhile (/=C) . iterate (succ' 1) $ l