Use liftM insted of >>= return.
Add fonction regrouping notes played at same time.
Add function to shift first items in a list.
Add auxiliary function “mapFst”.
Add function that set close numbers to the same.
Correct equalise function.