sub o{printf @_}
($w,$x,$y,$z)=qw(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");$w='s';$x='';
for($i=1;;$i++){o($c.$c.$d);o($e,$i,$w,$x,$y,$y);o($e,$i,$w,$x,$z,$z);o("das sind %u belegte Brote,\n%u mit $y und %u mit $z.\n\n",$i*2,$i,$i);$w='';$x='e'}