#!/usr/bin/perl
# Udos kleines Lochstreifen-Meterband.
#

for($x=0; $x < $ARGV[0]; $x++) {
	for($y=0; $y<2**8; $y++) {
		print pack('C', $y);
	}
}