#!perl -l
sub x{push@t,$ARGV[$i%2];$;--}$;=pop;while($;){x;$;&&x for 2..$t[$i];$i++}print@t

#!perl -l
sub x{push@t,$ARGV[$i%2];$l--}$l=pop;while($l){x;$l&&x for 2..$t[$i];$i++}print@t

#!perl -l
sub x{push@t,$ARGV[$i];$l--}$l=pop;while($l){x;$l&&x for 2..$t[$j++];$i=!$i}print@t

#!perl -l
sub x{$,.=$ARGV[$i];$l--}$l=pop;while($l){x;$l&&x for 2..substr($,,$n++,1);$i=!$i}print$,

#!perl
sub x{push@t,$d=$ARGV[$i];$l--;print$d}$l=pop;while($l){x;$l&&x for 2..shift@t;$i=!$i}print'
'

#!perl
sub x{push@t,$d=$ARGV[$i];$l--;print$d}$l=pop;while($l){&x;$l&&x for 2..shift@t;$i=!$i}print'
'

#!perl
sub x{push@t,$d=$a[$i];$l--;print$d}$l=pop;@a=@ARGV;while($l){&x;$l&&x for 2..shift@t;$i=!$i}print'
'

#!perl
sub x{push@t,$d;$l--;print$d}$l=pop;@a=@ARGV;while($l){push@a,$d=shift@a;&x;$l&&&x for 2..shift@t}print'
'

#!perl -l
sub x{push@t,$d;$l--;$s.=$d}($a,$b,$l)=@ARGV;$d=$a;while($l){&x;$l&&&x for 2..shift@t;$d=($d==$a)?$b:$a}print$s

#!perl -l
($a,$b,$l)=@ARGV;$n=$d=$a;while($l>0){$l-=$n;$s.=$d;$n=substr($s,$i++,1);$s.=$d x--$n;$d=($d==$a)?$b:$a}print substr($s,0,pop)

#!perl -l
$l=pop;$b=pop;$d=$a=pop;if($d==1){$d=$b;$s=1;++$i};$n=$d;while($l>length$s){$s.=$d x$n;$d=($d==$a)?$b:$a;++$i;$n=substr($s,$i,1)}print substr($s,0,$l)