#!/usr/bin/perl
#
# usage: repeatfile n file
#
# repeat the given file n times
# (to forge phony cvt/glyf tables).
#
#	2002/2/6, by 1@2ch
#	* public domain *
#

require 'lib_util.pl';

($n, $f) = @ARGV;
ropen($f);
$s = '';
while(my $x = rstrn($BUFSIZ)) {
    $s .= $x;
}

wopen('&STDOUT');
for($i = 0; $i < $n; $i++) {
    wstrn($s);
}
wclose();
