#!perl
@a=@ARGV;while($a[2]--){if($_){s/.//;print$&;$_.=$a[$|--]x$&}else{$_=$a[$|]x$a[$|--];s/.//;print$&}}print"
"