i:(1 0;-1 0;0 1;0 -1)`R`L`D`U?,/{&!/``I$'" "\x}'0:"i/09"
s:{d:^2 -2?*/x;(x>d)-x<-d}
p:(10 2#0){x[0]+:y;{y+s@x-y}\x}\i
#?p[;1]
#?p[;9]