#!/usr/athena/bin/perl

while ($x < $argv[0]) {
	system ("more /mit/mkgray/Text/blscr | zwrite mkgray");
	$x++;
}