my $id = shift;
my @list = ();
my $y=2;
my $x=2;
my $be = ($id * 3 * $x * $y - $x + $y + 5) * 100 + $x*10 + $y;
print "http://be.2ch.net/test/p.php?i=$be\n";