procedure main()
while a:=read()do{s:=""
while(a>0)do{s:="0123456789ABCDEF"[a%16+1]||s;a/:=16}
write(s)}
end