(for n 0 255(pr:mod(int:coerce n'string 2)9))