$a="Bommerlunder";$b="Eisgekuehlter $a -\n$a eisgekuehlt.\n";$c="\nUnd dazu:\n";$d=1;$e="Brot";$f=" mit ";$g="Schinken";$h="Ei";$i=" - ";$j=" belegtes $e";$k="belegte";$l=" $k Brote";$m="$k $e";$n="!\nDas sind ";$o=" und ";print"$b$b$c$d$j$f$g$i$g!\n$d$j$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";while(++$d){print"$b$b$c$d $m$f$g$i$g!\n$d $m$f$h$i$h$n",$d*2,"$l,\n$d$f$g$o$d$f$h.\n$c";}