#!/usr/bin/perl
sub o{printf @_}sub p{o($_[0],$i,$i>1?'':'s',$i>1?'e':'',$_[1],$_[1])}
($w,$x,$y,$z)=('isgekühlt','Bommerlunder','Schinken','Ei');($c,$d,$e)=("E$w"."er $x -\n$x e$w.\n","\nUnd dazu:\n","%u belegte%s Brot%s mit %s - %s!\n");
$i=0;for(;;){$i++;o($c);o($c);o($d);p($e,$y);p($e,$z);o("das sind %u belegte Brote,\n%u mit $y und %u mit Ei.\n\n",$i*2,$i,$i)}