#!/usr/bin/perl

use Silly::Wabby;

($a, $b) = (shift, shift);

die "$0: filename paras\n\nGenerates paras lines of munged text from filename. Utterly pointless.\n" if (! (defined $a && defined $b) );

$w = new Silly::Wabby;
open FILE, $a;
$f = join "\n", <FILE>;
$w->add($f);
print $w->spew, "\n" while ($b-- > 0);
