program binario;
var a,q,r,n,i:integer;
t:array[1..10] of integer;
begin
n:=0;
readln(a);
repeat
begin
n:=n+1;
q:=a div 2;
t[n]:= a-2*q;
write(t[n]);
a:=q;
end
until q=0;
writeln (' ');
for i:=0 to n-1 do
write (t[n-i]);
end.
cHJvZ3JhbSBiaW5hcmlvOwp2YXIgYSxxLHIsbixpOmludGVnZXI7CnQ6YXJyYXlbMS4uMTBdIG9mIGludGVnZXI7CmJlZ2luCm46PTA7CnJlYWRsbihhKTsKcmVwZWF0CmJlZ2luCm46PW4rMTsKcTo9YSBkaXYgMjsKdFtuXTo9IGEtMipxOwp3cml0ZSh0W25dKTsKYTo9cTsKZW5kCnVudGlsIHE9MDsKd3JpdGVsbiAoJyAnKTsKZm9yIGk6PTAgdG8gbi0xIGRvCndyaXRlICh0W24taV0pOwplbmQu