DouKaku?

dx=(1 0 -1 0)
dy=(0 1 0 -1)
x=0
y=0
i=0
while :;do
    echo $((i++)) $x $y
    ((r = RANDOM % 4))
    ((x += dx[r]))
    ((y += dy[r]))
done