#!/usr/bin/perl -wl

sub logb10 {
  return log(+shift)/log(10);
}

print int(logb10(100) + logb10(100) + 1);
print int(logb10(321) + logb10(311) + 1);
print int(logb10(321) + logb10(312) + 1);
__DATA__
output:
5
5
6