bin(n:int)=concat(apply(s->Str(s),binary(n)))