#!/usr/bin/perl -w
use strict;my$N=$_[0];$\=' ';for (;;){print int rand$N}