Problem B

USING: io kernel math math.parser strings sequences ;

IN: template

: test ( n str -- c d )
 dup 0 =
 [ ]
 [
   dup 2 mod
   0 =
   [ swap "0" swap append swap ]
   [ swap "1" swap append swap ]
   if
   2
   /i

   test
 ]
 if ;



""
readln string>number

test

drop
print