sub f{
  my $t=0;
  $t+=rand() for(1..5);
  return int($t*20+1);
}