#!perl -l
$_.=2while$|=s/./$ARGV[--$|]x$&/ge<999;print$_&'?'x pop