# say grace
bless $this, "Meal";

%browns;

my @eggs;
for ( 1..10 ) {
    my ($x,$y) = rand @eggs, rand @eggs;
    @eggs[$x,$y] = @eggs[$y,$x];
}

sub sandwich;

@soup = split( //, $p );

chop $pork;

write KRISPIE;
write KRISPIE;
write KRISPIE;