#!perl -l
(@n[0,1],$c)=@ARGV;while($c>0){$c-=$l=(substr($o,$j,1)||$n[$i]);$o.=$n[$i]x$l;$i=!$i;$j++;}print substr$o,0,pop