#! /usr/bin/perl -w

  use strict;
  print int (rand (251) + 250), "\n" for (1..100);