#!/usr/bin/perl -w
use strict;
#use Linux; ## I wish. =) (yeah yeah, $^O, etc etc)

open UR, "</dev/urandom" or die "Oh man, your system sucks, $!";

my $pages= shift()+0 || 1;

die "Give me a number greater than 0 or nothing, bub.\n" unless $pages>0;

while ($pages-->0) {
        my $buf;
        read UR, $buf, 512 or die "Ouch that shouldn't happen, $!";
        for (0..31) {
                print vec($buf,$_*4,32), "\t",
                        vec($buf,$_*4+1,32), "\t",
                        vec($buf,$_*4+2,32), "\t",
                        vec($buf,$_*4+3,32), "\n";
        }
}