n, sec = gets.split(" ").map(&:to_i)
time = 0
que = []
n.times do
  que << gets.split(" ").map{|i|(/[a-zA-Z]/ =~ i) ? i:i.to_i}
end
while que.length > 0
  if que[0][1] <= sec
    puts [que[0][0], (time + que[0][1])].join(" ")
    time += que[0][1]
    que.shift
  else
    que[0][1] -= sec
    que.push(que.shift)
    time += sec
  end
end