local i=0

--?     dump_path(cand)

    i = i+1
    io.stdout:write(tostring(i)..' '..tostring(crate.id)..' ')
    dump_path(cand)

      if curr ~= CELL_WALL and (curr ~= CELL_CRATE or crate_id[c.y][c.x] ~= crate.id) and (curr ~= CELL_CRATE_ON_TARGET or crate_id[c.y][c.x] ~= crate.id) then

      Real_print('aaa', crate.id, curr, crate_id[c.y][c.x])
      if curr ~= CELL_WALL and (curr ~= CELL_CRATE or crate_id[c.y][c.x] == crate.id) and (curr ~= CELL_CRATE_ON_TARGET or crate_id[c.y][c.x] == crate.id) then

          Real_print('  -> left')

          Real_print('  -> right')

          Real_print('  -> up')

          Real_print('  -> down')

  Real_print('aa', x,y, empty.x,empty.y, occupied.x,occupied.y)

  Real_print('bb')

    Real_print('cc')

    Real_print('dd')

  io.stdout:write('push '..c.dir..' ')

  io.stdout:write('p'..c.dir..' ')

      io.stdout:write('move '..c2.dir..' ')

      io.stdout:write('m'..c2.dir..' ')

function vdump_path(c)
  if c == nil then return end
  if not c.dir then
    assert(not c.moves)
    assert(not c.prev)
    return
  end
  Real_print('p'..c.dir)
  local c2 = c.moves
  while c2 do
    if c2.dir then
      Real_print('m'..c2.dir)
    end
    c2 = c2.prev
  end
  vdump_path(c.prev)
end

  Real_print('--')
--?   vdump_path(path)

      crate_to_move = {x=x, y=y, cid=crate_id[y][x]}

      crate_to_move = {x=x, y=y, id=crate_id[y][x]}

      if crate_id[r][c] then
        color(1,1,1)
        g.print(crate_id[r][c], left+(c-1)*side, top+(r-1)*side)
      end