$r="Eisgekuehlter Bommerlunder -\nBommerlunder eisgekuehlt.\n";$i=0;$e='s';for(;;){print "$i belegte$e Brot mit Schinken - Schinken!\n
$i belegte$e Brot mit Ei - Ei!\nDas sind ".($i+$i)." belegte Brote,\n$i mit Schinken und $i mit Ei.\n\n\n";print"$r"x2;$e='';$i++;}