测试点1 Accepted / 0ms / 256kB

测试点2 Accepted / 0ms / 256kB

测试点3 Accepted / 0ms / 256kB

测试点4 Accepted / 0ms / 256kB

测试点5 Accepted / 0ms / 256kB

测试点6 Accepted / 0ms / 256kB

测试点7 Accepted / 0ms / 256kB

测试点8 Accepted / 0ms / 256kB

测试点9 Accepted / 0ms / 256kB

测试点10 Accepted / 0ms / 256kB

var

now,n:int64;

begin

read(n);

now:=2;

while true do

begin

now:=now*9 -8;

if now>n then begin write('181818181818'); halt; end;

now:=now*2 -1;

if now>n then begin write('ZBT'); halt; end;

end;

end.