nextInterval :: Interval -> Quality -> Interval
nextInterval (Interval 1 ef _) _ = Interval 2 ef 2
nextInterval :: Interval -> Quality -> Interval
nextInterval (Interval 1 ef _) _ = Interval 2 ef 2
nextInterval (Interval 1 ef _) _ = Interval 2 ef 2