read*,n
  print '(i0)',IBCLR(n,0)
end