function babbage(x::Integer)
  i = big(0)
  d = floor(log10(x)) + 1
  while i ^ 2 % 10 ^ d != x
    i += 1
  end
  return i
end