0/0:-!.
A/B:-D is A>>1,D/E,B is E+(A/\1).
m:-between(0,255,N),N/X,\+write(X).