MOD = 998244353
n, k = gets.split.map(&:to_i)
a = []
k.times do
  l, r = gets.split.map(&:to_i)
  a += (l..r).to_a
end
a.sort!
dp = Array.new(n + a.max, 0)
dp[0] = 1
n.times do |i|
  next if dp[i].zero?
  a.each do |x|
    break if i + x > n.pred
    dp[i + x] += dp[i]
    dp[i + x] %= MOD
  end
end
puts dp[n.pred]
