def build_depth_info_subr(adjs, u, info)
  adjs[u].each do |v, (c, d)|
    next if info[v]
    info[v] = {}
    info[v][:parent] = u
    info[v][:depth] = info[u][:depth] + 1
    info[v][:distance] = info[u][:distance] + d

    build_depth_info_subr(adjs, v, info)
  end
end

def build_depth_info(adjs)
  info = {}
  u = 1 # root
  info[u] = {}
  info[u][:parent] = nil
  info[u][:depth] = 0
  info[u][:distance] = 0

  build_depth_info_subr(adjs, u, info)

  info.each do |u, r|
    r[:as] = [r[:parent]]
  end

  0.upto(30) do |i|
    found = nil
    info.each do |u, r|
      if r[:as][i]
        a = info[r[:as][i]][:as][i]
        found ||= a
        r[:as] << a
      end
    end
    break unless found
  end
  #info.each{|k,v| p [k, v]}
  
  info
end

def build_color_info_subr(adjs, info, qc, u, de, di) 
  adjs[u].each do |v, (c, d)|
    next if v == info[u][:parent]
    di[c] += d
    de[c] += 1
    #p [v, de, di] 
    if qc.key?(v)
      di2 = {}
      de2 = {}
      qc[v].each_key do |cc|
        di2[cc] = di[cc]
        de2[cc] = de[cc]
      end
      info[v][:colored_distance] = di2
      info[v][:colored_depth] = de2
    end
    build_color_info_subr(adjs, info, qc, v, de, di)
    di[c] -= d
    de[c] -= 1
  end
end

def build_color_info(adjs, info, qc)
  info[1][:colored_depth] = Hash.new(0)
  info[1][:colored_distance] = Hash.new(0)
  build_color_info_subr(adjs, info, qc, 1, Hash.new(0), Hash.new(0))
end

def nth_parent(u, n, info)
  i = 0
  while (2**i) <= n
    if (n & (2**i)) > 0
      u = info[u][:as][i]
      return u if !u
    end
    i += 1
  end
  return u
end

def lca(u, v, info)
  du = info[u][:depth]
  dv = info[v][:depth]
  if du < dv
    v = nth_parent(v, dv-du, info)
  else
    u = nth_parent(u, du-dv, info)    
  end

  return u if u == v

  x0 = 0
  x1 = du
  while x1-x0 > 1
    d = (x0 + x1)/2
    if nth_parent(u, d, info) == nth_parent(v, d, info)
      x1 = d
    else
      x0 = d
    end
  end

  d = x1

  return nth_parent(u, d, info)
end

def changed_distance(u, c, d, info)
  #p [:ch, u, info[u][:distance], info[u][:colored_distance][c], d*info[u][:colored_depth][c]]
  info[u][:distance] - info[u][:colored_distance][c] + d*info[u][:colored_depth][c]
end

n, q = gets.split.map(&:to_i)
adjs = {}
(n-1).times do
  a, b, c, d = gets.split.map(&:to_i)
  (adjs[a] ||= {})[b] = [c, d]
  (adjs[b] ||= {})[a] = [c, d]
end

info = build_depth_info(adjs)

queries = []
qc = {}
q.times do
  x, y, u, v = gets.split.map(&:to_i)

  m = lca(u, v, info)
  queries << [x, y, u, v, m]

  (qc[u] ||= {})[x] = true
  (qc[v] ||= {})[x] = true
  (qc[m] ||= {})[x] = true
end

build_color_info(adjs, info, qc)
if false
  puts
  info.each{|a| p a}
  puts
end

queries.each do |x, y, u, v, m|
  #p [x, y, u, v, m]
  cdu = changed_distance(u, x, y, info)
  cdv = changed_distance(v, x, y, info)
  cdm = changed_distance(m, x, y, info)
  
  len = cdu + cdv - 2*cdm
  puts len
end
