Cheese

[Anonymous Monk]

Have you all considered eating a great big piece of cheese? If so what cheese would you eat and why? Aswell do any of you have a facination with bees? Just asking. Love hugs and jelly beans K8 & Jen from Blackpool

[jepri]

I never wanted to be a cheese coder! I wanted to be a lumberjack....

#!/usr/perl/bin 

use Quantum::Superposition;

my $shop =cheese_shop->new;
my $customer = cheese_shop->new;

if ( $customer->esuriant(bazouki) && $customer->terpsichorean(love) ){
     if ( $shop->stock('red Leicester') ) {
          push $customer{shopping_cart}, 'red Leicester');
     } else {
     if ( $shop->stock('Caerphilly') ) {
          push $customer{shopping_cart}, 'Caephilly';
     } else {
# about this point I got bored with the idea
     if ( $shop->stock(any('Bel Paese','Red Windsor','Stilton','Ementh
+al','Gruyere','Norweigan Jarlsburg','Lipta','Lancashire','White Stilt
+on','Danish Brew','Double Goucester','Cheshire','Dorset Bluveny','Bri
+e, Roquefort','Pol le Veq','Port Salut','Savoy Aire','Saint Paulin','
+Carrier de lest','Bres Bleu','Bruson','Camenbert','Gouda','Edam','Cas
+e Ness','Smoked Austrian','Wensleydale','Gorgonzola','I can't believe
+ how many cheeses Monty Python know about','Parmesan','Mozarella','Pa
+per Cramer','Danish Bimbo','Toe Cheese','Czech sheep's milk','Venezue
+lan Beaver Cheese','Cheddar','Illchester, the most popular cheese rou
+nd here','Limburger'))) {
     print "Congratulations, you have discovered the hidden flaw in th
+is program!" && die "Horribly";
} else {
kill('owner');
}}}}

The really amazing thing is probably this page.

____________________
Jeremy
I didn't believe in evil until I dated it.

[jeffa]

Excrementaly runny Camenbert . . .mmmmm

Jeff

<!-- hmmm, i wonder what Easter Egg might lie within -->

[Petruchio]

Ahh... yes. You seem to be lost. Here you go. See you.

[repson]

Umm do you know what this site is for?

Just wondering...


# hmm, bees, this is how much I care
open OUT,'> /dev/null' or die "Sorry, can't write to oblivion\n";
for my $thing (@objects) {
  print OUT $thing->contects if $thing->type eq 'bee';
}
close OUT; # back to finite land
# cheese, ok then
use Me;
my $me = new Me;
for my $thing (@objects) {
  $me->eat_all($thing->contents) if $thing->type =~ /cheese/i;
}

Don't worry, I'm perfectly normal (for me)

[mdillon]

try CheeseMonks.org. i heard they've got all the cheesy feedback you could ever want.

[ambrus]

You mean the Cheddar Monk Academy. (Its name is from this strip.)

[redmist]

I would have to say that Cheddar, Jack, and Mozzerela all hold the same status in my mind. They are all quite edible...but only when melted.

redmist
Silicon Cowboy

[a]

One wishes the cat had gotten away w/ the whole round of you'all ...

a